home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 23 / CU Amiga - Super CD-ROM 23 (June 1998).iso / CreatingGames / Utilities / Asm / AB3DIIsrc / source_4000 / OBJdrawHIRES.s < prev    next >
Encoding:
Text File  |  1996-07-05  |  64.4 KB  |  4,724 lines
  1.  
  2. currzone: dc.w 0
  3.  
  4. ty3d: dc.l -100*1024
  5. by3d: dc.l 1*1024
  6.  
  7. TOPOFROOM: dc.l 0
  8. BOTOFROOM: dc.l 0
  9. AFTERWATTOP: dc.l 0
  10. AFTERWATBOT: dc.l 0
  11. BEFOREWATTOP: dc.l 0
  12. BEFOREWATBOT: dc.l 0
  13. ROOMBACK: dc.l 0
  14.  
  15. objclipt: dc.w 0
  16. objclipb: dc.w 0
  17. rightclipb: dc.w 0
  18. leftclipb: dc.w 0
  19. whichdoing: dc.w 0
  20.  
  21. ObjDraw:
  22.  
  23.  move.w (a0)+,d0
  24.  cmp.w #1,d0
  25.  blt.s beforewat
  26.  beq.s afterwat
  27.  bgt.s fullroom
  28.  
  29. beforewat:
  30.  move.l BEFOREWATTOP,ty3d
  31.  move.l BEFOREWATBOT,by3d
  32.  move.b #1,whichdoing
  33.  bra.s donetopbot
  34.  
  35. afterwat:
  36.  move.l AFTERWATTOP,ty3d
  37.  move.l AFTERWATBOT,by3d
  38.  move.b #0,whichdoing
  39.  bra.s donetopbot
  40.  
  41. fullroom:
  42.  move.l TOPOFROOM(pc),ty3d
  43.  move.l BOTOFROOM(pc),by3d
  44.  move.b #0,whichdoing
  45.  
  46. donetopbot:
  47.  
  48. ; move.l (a0)+,by3d
  49. ; move.l (a0)+,ty3d
  50.  
  51.  movem.l d0-d7/a1-a6,-(a7)
  52.  
  53.  move.w rightclip,d0
  54.  sub.w leftclip,d0
  55.  subq #1,d0
  56.  ble doneallinfront 
  57.  
  58. ; CACHE_ON d6
  59.  
  60.  move.l ObjectData,a1
  61.  move.l #ObjRotated,a2
  62.  move.l #depthtable,a3
  63.  move.l a3,a4
  64.  move.w #79,d7
  65. emptytab:
  66.  move.l #$80010000,(a3)+
  67.  dbra d7,emptytab
  68.  
  69.  moveq #0,d0
  70. insertanobj
  71.  move.w (a1),d1
  72.  blt sortedall
  73.  move.w GraphicRoom(a1),d2
  74.  cmp.w currzone(pc),d2
  75.  beq.s itsinthiszone 
  76.  
  77. notinthiszone:
  78.  adda.w #64,a1
  79.  addq #1,d0
  80.  bra insertanobj
  81.  
  82. itsinthiszone:
  83.  
  84.  move.b DOUPPER,d4
  85.  move.b ObjInTop(a1),d3
  86.  eor.b d4,d3
  87.  bne.s notinthiszone
  88.  
  89.  move.w 2(a2,d1.w*8),d1    ; zpos
  90.  
  91.  move.l #depthtable-4,a4
  92. stillinfront:
  93.  addq #4,a4
  94.  cmp.w (a4),d1
  95.  blt stillinfront
  96.  move.l #enddepthtab-4,a5
  97. finishedshift
  98.  move.l -(a5),4(a5)
  99.  cmp.l a4,a5
  100.  bgt.s finishedshift
  101.  
  102.  move.w d1,(a4)
  103.  move.w d0,2(a4)
  104.  
  105.  adda.w #64,a1
  106.  addq #1,d0
  107.  
  108.  bra insertanobj
  109.  
  110. sortedall:
  111.  
  112.  move.l #depthtable,a3
  113.  
  114. gobackanddoanother
  115.  move.w (a3)+,d0
  116.  blt.s doneallinfront
  117.  
  118.  move.w (a3)+,d0
  119.  bsr DrawtheObject
  120.  bra gobackanddoanother
  121.  
  122. doneallinfront
  123.  
  124.  movem.l (a7)+,d0-d7/a1-a6
  125.  rts
  126.  
  127. depthtable: ds.l 80
  128. enddepthtab:
  129.  
  130. DrawtheObject:
  131.  
  132.  
  133.  movem.l d0-d7/a0-a6,-(a7)
  134.  
  135.   
  136.  move.l ObjectData,a0
  137.  move.l #ObjRotated,a1
  138.  asl.w #6,d0
  139.  adda.w d0,a0
  140.  
  141.  move.b ObjInTop(a0),IMINTHETOPDAD
  142.  
  143.  move.w (a0),d0
  144.  move.w 2(a1,d0.w*8),d1    ; z pos
  145.  
  146. ; Go through clip pts to see which
  147. ; apply.
  148.  
  149. ; move.w #0,d2    ; leftclip
  150. ; move.w #96,d3  ; rightclip
  151.  
  152. ; move.l EndOfClipPt,a6
  153. ;checkclips:
  154. ; subq #8,a6
  155. ; cmp.l #ClipTable,a6
  156. ; blt outofcheckclips
  157.  
  158. ; cmp.w 2(a6),d1
  159. ; bgt.s cantleft
  160. ; move.w (a6),d4
  161. ; cmp.w d4,d2
  162. ; bgt.s cantleft
  163. ; move.w d4,d2
  164. ;cantleft:
  165.  
  166. ; cmp.w 6(a6),d1
  167. ; bgt.s cantright
  168. ; move.w 4(a6),d4
  169. ; cmp.w d4,d3
  170. ; blt.s cantright
  171. ; move.w d4,d3
  172. ;cantright:
  173.  
  174. ;outofcheckclips:
  175.  
  176. ; move.w d2,leftclipb
  177. ; move.w d3,rightclipb
  178.  
  179.  move.w leftclip,leftclipb
  180.  move.w rightclip,rightclipb
  181.  
  182.  cmp.b #$ff,6(a0)
  183.  bne BitMapObj
  184.  
  185.  bsr PolygonObj
  186.  movem.l (a7)+,d0-d7/a0-a6
  187.  rts
  188.  
  189. glassobj:
  190.  move.w (a0)+,d0    ;pt num
  191.  move.w 2(a1,d0.w*8),d1
  192.  cmp.w #25,d1
  193.  ble objbehind
  194.  
  195.  move.w topclip,d2
  196.  move.w botclip,d3
  197.  
  198.  move.l ty3d,d6
  199.  sub.l yoff,d6
  200.  divs d1,d6
  201.  add.w MIDDLEY,d6
  202.  cmp.w d3,d6
  203.  bge objbehind
  204.  cmp.w d2,d6
  205.  bge.s .okobtc
  206.  move.w d2,d6
  207. .okobtc:
  208.  move.w d6,objclipt
  209.  
  210.  move.l by3d,d6
  211.  sub.l yoff,d6
  212.  divs d1,d6
  213.  add.w MIDDLEY,d6
  214.  cmp.w d2,d6
  215.  ble objbehind
  216.  cmp.w d3,d6
  217.  ble.s .okobbc
  218.  move.w d3,d6
  219. .okobbc:
  220.  move.w d6,objclipb
  221.  
  222.  move.l 4(a1,d0.w*8),d0
  223.  move.l (a0)+,d2    ; height
  224.  ext.l d2
  225.  asl.l #7,d2
  226.  sub.l yoff,d2
  227.  divs d1,d2    
  228.  add.w MIDDLEY,d2
  229.  
  230.  divs d1,d0
  231.  add.w MIDDLEX,d0    ;x pos of middle
  232.  
  233. ; Need to calculate:
  234. ; Width of object in pixels
  235. ; height of object in pixels
  236. ; horizontal constants
  237. ; vertical constants.
  238.  
  239.  move.l #consttab,a3
  240.  
  241.  moveq #0,d3
  242.  moveq #0,d4
  243.  move.b (a0)+,d3
  244.  move.b (a0)+,d4
  245.  asl.w #7,d3
  246.  asl.w #7,d4
  247.  divs d1,d3 ;width in pixels
  248.  divs d1,d4 ;height in pixels
  249.  sub.w d4,d2
  250.  sub.w d3,d0
  251.  cmp.w rightclipb,d0
  252.  bge objbehind
  253.  add.w d3,d3
  254.  cmp.w objclipb,d2
  255.  bge objbehind
  256.  
  257.  add.w d4,d4
  258.  
  259.  move.w d3,realwidth
  260.  move.w d4,realheight
  261.  
  262. * OBTAIN POINTERS TO HORIZ AND VERT
  263. * CONSTANTS FOR MOVING ACROSS AND
  264. * DOWN THE OBJECT GRAPHIC.
  265.  
  266.  move.w d1,d7
  267.  moveq #0,d6
  268.  move.b 6(a0),d6
  269.  add.w d6,d6
  270.  mulu d6,d7
  271.  move.b -2(a0),d6
  272.  divu d6,d7
  273.  swap d7
  274.  clr.w d7
  275.  swap d7
  276.  
  277.  lea (a3,d7.l*8),a2    ; pointer to
  278.             ; horiz const
  279.  move.w d1,d7
  280.  move.b 7(a0),d6
  281.  add.w d6,d6
  282.  mulu d6,d7
  283.  move.b -1(a0),d6
  284.  divu d6,d7
  285.  swap d7
  286.  clr.w d7
  287.  swap d7
  288.  lea (a3,d7.l*8),a3    ; pointer to
  289.              ; vertical c.
  290.  
  291. * CLIP OBJECT TO TOP AND BOTTOM
  292. * OF THE VISIBLE DISPLAY
  293.  
  294.  moveq #0,d7
  295.  cmp.w objclipt,d2
  296.  bge.s .objfitsontop
  297.  
  298.  sub.w objclipt,d2
  299.  add.w d2,d4    ;new height in
  300.         ;pixels
  301.  ble objbehind  ; nothing to draw
  302.  
  303.  move.w d2,d7
  304.  neg.w d7    ; factor to mult.
  305.          ; constants by
  306.          ; at top of obj.
  307.  move.w objclipt,d2
  308.  
  309. .objfitsontop:
  310.  
  311.  move.w objclipb,d6
  312.  sub.w d2,d6
  313.  cmp.w d6,d4
  314.  ble.s .objfitsonbot
  315.  
  316.  move.w d6,d4
  317.  
  318. .objfitsonbot:
  319.  
  320.  subq #1,d4
  321.  blt objbehind
  322.  
  323.  move.l #ontoscr,a6
  324.  move.l (a6,d2.w*4),d2
  325.  
  326.  add.l FASTBUFFER,d2
  327.  move.l d2,toppt
  328.  
  329.  move.l #WorkSpace,a5
  330.  move.l #glassball,a4
  331.  cmp.w leftclipb,d0
  332.  bge.s .okonleft
  333.  
  334.  sub.w leftclipb,d0
  335.  add.w d0,d3
  336.  ble objbehind
  337.  
  338.  move.w (a2),d1
  339.  move.w 2(a2),d2
  340.  neg.w d0
  341.  muls d0,d1
  342.  mulu d0,d2
  343.  swap d2
  344.  add.w d2,d1
  345.  asl.w #7,d1
  346.  lea (a5,d1.w),a5
  347.  lea (a4,d1.w),a4
  348.  
  349.  move.w leftclipb,d0
  350.  
  351. .okonleft:
  352.  
  353.  move.w d0,d6
  354.  add.w d3,d6
  355.  sub.w rightclipb,d6
  356.  blt.s .okrightside
  357.  
  358.  sub.w #1,d3
  359.  sub.w d6,d3
  360.  
  361. .okrightside:
  362.  
  363.  move.l #objintocop,a1
  364.  sub.l a1,a1
  365.  move.w d0,a1
  366.  add.w a1,a1
  367.  
  368.  move.w (a3),d5
  369.  move.w 2(a3),d6
  370.  muls d7,d5
  371.  mulu d7,d6
  372.  swap d6
  373.  add.w d6,d5
  374. ; add.w 2(a0),d5    ;d5 contains
  375.          ;top offset into
  376.          ;each strip.
  377.  add.l #$80000000,d5
  378.      
  379.  move.l (a2),d6
  380.  moveq.l #0,d7
  381.  move.l a5,midobj
  382.  move.l a4,midglass
  383.  move.l (a3),d2
  384.  swap d2
  385.  move.l #times128,a0
  386.  
  387.  movem.l d0-d7/a0-a6,-(a7)
  388.  
  389.  move.w d3,d1
  390.  ext.l d1
  391.  swap d1
  392.  move.w d4,d2
  393.  ext.l d2
  394.  swap d2
  395.  asr.l #6,d1
  396.  asr.l #6,d2
  397.  move.w d1,d5
  398.  move.w d2,d6
  399.  swap d1
  400.  swap d2
  401.  
  402.  muls #320,d2
  403.  
  404.  move.l #WorkSpace,a0
  405.  
  406.  move.w #63,d0
  407. .readinto:
  408.  swap d0
  409.  move.w #63,d0
  410.  move.l toppt(pc),a6
  411.  adda.w a1,a6
  412.  add.w d1,a1
  413.  add.w d5,d7
  414.  bcc.s .noadmoreh
  415.  addq #1,a1
  416. .noadmoreh:
  417.  swap d7
  418.  move.w #0,d7 
  419. .readintodown:
  420.  move.w (a6),d3
  421.  move.w d3,(a0)+
  422.  add.w d2,a6
  423.  add.w d6,d7
  424.  bcc.s .noadmore
  425.  adda.w #320,a6
  426. .noadmore:
  427.  dbra d0,.readintodown
  428.  swap d0
  429.  swap d7
  430.  dbra d0,.readinto
  431.  
  432.  
  433. ; Want to zoom an area d3*d4
  434. ; in size up to 64*64 in size.
  435. ; move.l #WorkSpace,a0
  436. ; move.l frompt,a2
  437. ; move.w #104*4,d3
  438. ; move.w #1,d6
  439. ;.ribl
  440. ; move.w #31,d0
  441. ;.readinto
  442. ; move.w #15,d1
  443. ; move.l a2,a1
  444. ;.readintodown
  445. ; move.w (a1),(a0)+
  446. ; adda.w d3,a1
  447. ; move.w (a1),(a0)+
  448. ; adda.w d3,a1
  449. ; move.w (a1),(a0)+
  450. ; adda.w d3,a1
  451. ; move.w (a1),(a0)+
  452. ; adda.w d3,a1
  453. ; dbra d1,.readintodown
  454. ;; add.w #256-128,a0
  455. ; addq #4,a2
  456. ; dbra d0,.readinto
  457. ; addq #4,a2
  458. ; dbra d6,.ribl
  459.  
  460.  movem.l (a7)+,d0-d7/a0-a6
  461.  
  462.  move.l #darkentab,a2
  463.  move.l toppt,d1
  464.  add.l a1,d1
  465.  move.l d1,toppt
  466.  move.l d6,a1
  467.  moveq #0,d6
  468.  
  469. .drawrightside:
  470.  swap d7
  471.  move.l midglass(pc),a4
  472.  adda.w (a0,d7.w*2),a4
  473.  swap d7
  474.  add.l a1,d7
  475.  move.l toppt(pc),a6
  476.  addq.l #1,toppt
  477.  
  478.  move.l d5,d1
  479.  move.w d4,-(a7)
  480.  swap d3
  481. .drawavertstrip
  482.  move.w (a4,d1.w*2),d3
  483.  blt.s .itsbackground
  484.  move.b (a5,d3.w*2),d6
  485.  move.b (a2,d6.w),(a6)
  486. .itsbackground
  487.  adda.w #320,a6
  488.  addx.l d2,d1
  489.  dbra d4,.drawavertstrip
  490.  swap d3
  491.  move.w (a7)+,d4
  492.  
  493.  dbra d3,.drawrightside
  494.  movem.l (a7)+,d0-d7/a0-a6
  495.  
  496.  rts
  497.  
  498. realwidth: dc.w 0
  499. realheight: dc.w 0
  500.  
  501. AUXX: dc.w 0
  502. AUXY: dc.w 0
  503.  
  504. midglass:
  505.  dc.l 0
  506. times128:
  507. val SET 0
  508.  REPT 100
  509.  dc.w val*128
  510. val SET val+1
  511.  ENDR
  512.  
  513. BRIGHTTOADD: dc.w 0
  514.  
  515. glareobj:
  516.  
  517.  
  518.  move.w (a0)+,d0    ;pt num
  519.  move.w 2(a1,d0.w*8),d1
  520.  cmp.w #25,d1
  521.  ble objbehind
  522.  
  523.  move.w topclip,d2
  524.  move.w botclip,d3
  525.  
  526.  move.l ty3d,d6
  527.  sub.l yoff,d6
  528.  divs d1,d6
  529.  add.w MIDDLEY,d6
  530.  cmp.w d3,d6
  531.  bge objbehind
  532.  cmp.w d2,d6
  533.  bge.s .okobtc
  534.  move.w d2,d6
  535. .okobtc:
  536.  move.w d6,objclipt
  537.  
  538.  move.l by3d,d6
  539.  sub.l yoff,d6
  540.  divs d1,d6
  541.  add.w MIDDLEY,d6
  542.  cmp.w d2,d6
  543.  ble objbehind
  544.  cmp.w d3,d6
  545.  ble.s .okobbc
  546.  move.w d3,d6
  547. .okobbc:
  548.  move.w d6,objclipb
  549.  
  550.  move.l 4(a1,d0.w*8),d0
  551.  move.w AUXX,d2
  552.  ext.l d2
  553.  asl.l #7,d2
  554.  add.l d2,d0
  555.  addq #2,a0
  556.  move.l TexturePal,a4
  557.  sub.l #512,a4
  558.  
  559.  move.w (a0)+,d2    ; height
  560.  add.w AUXY,d2
  561.  ext.l d2
  562.  asl.l #7,d2
  563.  sub.l yoff,d2
  564.  divs d1,d2    
  565.  add.w MIDDLEY,d2
  566.  
  567.  divs d1,d0
  568.  add.w MIDDLEX,d0    ;x pos of middle
  569.  
  570. ; Need to calculate:
  571. ; Width of object in pixels
  572. ; height of object in pixels
  573. ; horizontal constants
  574. ; vertical constants.
  575.  move.l LINKFILE,a6
  576.  lea FrameData(a6),a6
  577.  move.l #Objects,a5
  578.  move.w 2(a0),d7
  579.  neg.w d7
  580.  asl.w #4,d7
  581.  adda.w d7,a5
  582.  asl.w #4,d7
  583.  adda.w d7,a6
  584.  
  585.  move.w 4(a0),d7
  586.  lea (a6,d7.w*8),a6
  587.  
  588.  move.l #consttab,a3
  589.  
  590.  moveq #0,d3
  591.  moveq #0,d4
  592.  move.b (a0)+,d3
  593.  move.b (a0)+,d4
  594.  lsl.l #7,d3
  595.  lsl.l #7,d4
  596.  divs d1,d3 ;width in pixels
  597.  divs d1,d4 ;height in pixels
  598.  
  599.  sub.w d4,d2
  600.  sub.w d3,d0
  601.  cmp.w rightclipb,d0
  602.  bge objbehind
  603.  add.w d3,d3
  604.  cmp.w objclipb,d2
  605.  bge objbehind
  606.  
  607.  add.w d4,d4
  608.  
  609. * OBTAIN POINTERS TO HORIZ AND VERT
  610. * CONSTANTS FOR MOVING ACROSS AND
  611. * DOWN THE OBJECT GRAPHIC.
  612.  
  613.  move.l (a5)+,WAD_PTR
  614.  move.l (a5)+,PTR_PTR
  615.  
  616.  move.l (a6),d7
  617.  move.w d7,DOWN_STRIP
  618.  move.l PTR_PTR,a5
  619.  swap d7
  620.  asl.w #2,d7
  621.  adda.w d7,a5
  622.  
  623.  move.w d1,d7
  624.  moveq #0,d6
  625.  move.w 4(a6),d6
  626.  add.w d6,d6
  627.  subq #1,d6
  628.  mulu d6,d7
  629.  moveq #0,d6
  630.  move.b -2(a0),d6
  631.  beq objbehind
  632.  divu d6,d7
  633.  swap d7
  634.  clr.w d7
  635.  swap d7
  636.  lea (a3,d7.l*8),a2    ; pointer to
  637.             ; horiz const
  638.  move.w d1,d7
  639.  move.w 6(a6),d6
  640.  add.w d6,d6
  641.  subq #1,d6
  642.  mulu d6,d7
  643.  moveq #0,d6
  644.  move.b -1(a0),d6
  645.  beq objbehind
  646.  divu d6,d7
  647.  swap d7
  648.  clr.w d7
  649.  swap d7
  650.  lea (a3,d7.l*8),a3    ; pointer to
  651.              ; vertical c.
  652.  
  653. * CLIP OBJECT TO TOP AND BOTTOM
  654. * OF THE VISIBLE DISPLAY
  655.  
  656.  moveq #0,d7
  657.  cmp.w objclipt,d2
  658.  bge.s objfitsontopGLARE
  659.  
  660.  sub.w objclipt,d2
  661.  add.w d2,d4    ;new height in
  662.         ;pixels
  663.  ble objbehind  ; nothing to draw
  664.  
  665.  move.w d2,d7
  666.  neg.w d7    ; factor to mult.
  667.          ; constants by
  668.          ; at top of obj.
  669.  move.w objclipt,d2
  670.  
  671. objfitsontopGLARE:
  672.  
  673.  move.w objclipb,d6
  674.  sub.w d2,d6
  675.  cmp.w d6,d4
  676.  ble.s objfitsonbotGLARE
  677.  
  678.  move.w d6,d4
  679.  
  680. objfitsonbotGLARE:
  681.  
  682.  subq #1,d4
  683.  blt objbehind
  684.  
  685.  move.l #ontoscr,a6
  686.  move.l (a6,d2.w*4),d2
  687.  add.l FASTBUFFER,d2
  688.  move.l d2,toppt
  689.  
  690.  cmp.w leftclipb,d0
  691.  bge.s okonleftGLARE
  692.  
  693.  sub.w leftclipb,d0
  694.  add.w d0,d3
  695.  ble objbehind
  696.  
  697.  move.w (a2),d1
  698.  move.w 2(a2),d2
  699.  neg.w d0
  700.  muls d0,d1
  701.  mulu d0,d2
  702.  swap d2
  703.  add.w d2,d1
  704.  lea (a5,d1.w*4),a5
  705.  
  706.  move.w leftclipb,d0
  707.  
  708. okonleftGLARE:
  709.  
  710.  move.w d0,d6
  711.  add.w d3,d6
  712.  sub.w rightclipb,d6
  713.  blt.s okrightsideGLARE
  714.  
  715.  sub.w #1,d3
  716.  sub.w d6,d3
  717.  
  718. okrightsideGLARE:
  719.  
  720.  ext.l d0
  721.  add.l d0,toppt
  722.  
  723.  
  724.  move.w (a3),d5
  725.  move.w 2(a3),d6
  726.  muls d7,d5
  727.  mulu d7,d6
  728.  swap d6
  729.  add.w d6,d5
  730.  add.w DOWN_STRIP(PC),d5    ;d5 contains
  731.          ;top offset into
  732.          ;each strip.
  733.  add.l #$80000000,d5
  734.      
  735.  move.l (a2),a2
  736.  moveq.l #0,d7
  737.  move.l a5,midobj
  738.  move.l (a3),d2
  739.  swap d2
  740.  
  741.  move.l #0,a1
  742.  
  743.  
  744. drawrightsideGLARE:
  745.  swap d7
  746.  move.l midobj(pc),a5
  747.  lea (a5,d7.w*4),a5
  748.  swap d7
  749.  add.l a2,d7
  750.  move.l WAD_PTR(PC),a0
  751.  
  752.  move.l toppt(pc),a6
  753.  adda.w a1,a6
  754.  addq #1,a1
  755.  move.l (a5),d1
  756.  beq blankstripGLARE
  757.  
  758.  and.l #$ffffff,d1
  759.  add.l d1,a0
  760.  
  761.  move.b (a5),d1
  762.  cmp.b #1,d1
  763.  bgt.s ThirdThirdGLARE
  764.  beq.s SecThirdGLARE
  765.  move.l d5,d6
  766.  move.l d5,d1
  767.  move.w d4,-(a7)
  768. .drawavertstrip
  769.  move.b 1(a0,d1.w*2),d0
  770.  and.b #%00011111,d0
  771.  beq.s .dontplotthisoneitsblack
  772.  lsl.w #8,d0
  773.  add.w d0,d0
  774.  move.b (a6),d0
  775.  move.b (a4,d0.w),(a6)
  776. .dontplotthisoneitsblack:
  777.  adda.w #320,a6
  778.  add.l d2,d6
  779.  addx.w d2,d1
  780.  dbra d4,.drawavertstrip
  781.  move.w (a7)+,d4
  782. blankstripGLARE:
  783.  dbra d3,drawrightsideGLARE
  784.  bra objbehind
  785.  
  786. SecThirdGLARE:
  787.  move.l d5,d1
  788.  move.l d5,d6
  789.  move.w d4,-(a7)
  790. .drawavertstrip
  791.  move.w (a0,d1.w*2),d0
  792.  lsr.w #5,d0
  793.  and.w #%11111,d0
  794.  beq.s .dontplotthisoneitsblack
  795.  lsl.w #8,d0
  796.  add.w d0,d0
  797.  move.b (a6),d0
  798.  move.b (a4,d0.w),(a6)
  799. .dontplotthisoneitsblack:
  800.  adda.w #320,a6
  801.  add.l d2,d6
  802.  addx.w d2,d1
  803.  dbra d4,.drawavertstrip
  804.  move.w (a7)+,d4
  805.  dbra d3,drawrightsideGLARE
  806.  bra objbehind
  807.  
  808. ThirdThirdGLARE:
  809.  move.l d5,d1
  810.  move.l d5,d6
  811.  move.w d4,-(a7)
  812. .drawavertstrip
  813.  move.b (a0,d1.w*2),d0
  814.  lsr.b #2,d0
  815.  and.b #%11111,d0
  816.  beq.s .dontplotthisoneitsblack
  817.  lsl.w #8,d0
  818.  add.w d0,d0
  819.  move.b (a6),d0
  820.  move.b (a4,d0.w),(a6)
  821. .dontplotthisoneitsblack:
  822.  adda.w #320,a6
  823.  add.l d2,d6
  824.  addx.w d2,d1
  825.  dbra d4,.drawavertstrip
  826.  move.w (a7)+,d4
  827.  dbra d3,drawrightsideGLARE
  828.  
  829.  movem.l (a7)+,d0-d7/a0-a6
  830.  rts
  831.  
  832.  
  833.  
  834. BitMapObj:
  835.  move.l #0,AUXX
  836.  
  837.  cmp.b #3,16(a0)
  838.  bne.s .NOTAUX
  839.  
  840.  move.w auxxoff(a0),AUXX
  841.  move.w auxyoff(a0),AUXY
  842.   
  843. .NOTAUX:
  844.  
  845.  tst.l 8(a0)
  846.  blt glareobj
  847.  
  848.  move.w Facing(a0),FACINGANG
  849.  
  850.  move.w (a0)+,d0    ;pt num
  851.  
  852.  move.l ObjectPoints,a4
  853.  
  854.  move.w (a4,d0.w*8),thisxpos
  855.  move.w 4(a4,d0.w*8),thiszpos
  856.  
  857.  move.w 2(a1,d0.w*8),d1
  858.  cmp.w #25,d1
  859.  ble objbehind
  860.  
  861.  move.w topclip,d2
  862.  move.w botclip,d3
  863.  
  864.  move.l ty3d,d6
  865.  sub.l yoff,d6
  866.  divs d1,d6
  867.  add.w MIDDLEY,d6
  868.  cmp.w d3,d6
  869.  bge objbehind
  870.  cmp.w d2,d6
  871.  bge.s .okobtc
  872.  move.w d2,d6
  873. .okobtc:
  874.  move.w d6,objclipt
  875.  
  876.  move.l by3d,d6
  877.  sub.l yoff,d6
  878.  divs d1,d6
  879.  add.w MIDDLEY,d6
  880.  cmp.w d2,d6
  881.  ble objbehind
  882.  cmp.w d3,d6
  883.  ble.s .okobbc
  884.  move.w d3,d6
  885. .okobbc:
  886.  move.w d6,objclipb
  887.  
  888.  move.l 4(a1,d0.w*8),d0
  889.  move.w AUXX,d2
  890.  ext.l d2
  891.  asl.l #7,d2
  892.  add.l d2,d0
  893.  move.w d1,d6
  894.  asr.w #6,d6
  895.  add.w (a0)+,d6
  896.  move.w d6,BRIGHTTOADD
  897.  
  898.  bge.s brighttoonot
  899.  moveq #0,d6
  900. brighttoonot
  901.  sub.l a4,a4
  902.  move.w objscalecols(pc,d6.w*2),a4
  903.  bra pastobjscale
  904.  
  905. objscalecols:
  906.  dcb.w  1,64*0
  907.  dcb.w  2,64*1
  908.  dcb.w  2,64*2
  909.  dcb.w  2,64*3
  910.  dcb.w  2,64*4
  911.  dcb.w  2,64*5
  912.  dcb.w  2,64*6
  913.  dcb.w  2,64*7
  914.  dcb.w  2,64*8
  915.  dcb.w  2,64*9
  916.  dcb.w  2,64*10
  917.  dcb.w  2,64*11
  918.  dcb.w  2,64*12
  919.  dcb.w  2,64*13
  920.  dcb.w  2,64*14
  921.  dcb.w  2,64*15
  922.  dcb.w  2,64*16
  923.  dcb.w  2,64*17
  924.  dcb.w  2,64*18
  925.  dcb.w  2,64*19
  926.  dcb.w  2,64*20
  927.  dcb.w  2,64*21
  928.  dcb.w  2,64*22
  929.  dcb.w  2,64*23
  930.  dcb.w  2,64*24
  931.  dcb.w  2,64*25
  932.  dcb.w  2,64*26
  933.  dcb.w  2,64*27
  934.  dcb.w  2,64*28
  935.  dcb.w  2,64*29
  936.  dcb.w  2,64*30
  937.  dcb.w  20,64*31
  938.  
  939. WHICHLIGHTPAL: dc.w 0
  940. FLIPIT: dc.w 0
  941. FLIPPEDIT: dc.w 0
  942. LIGHTIT: dc.w 0
  943. ADDITIVE: dc.w 0
  944. BASEPAL: dc.l 0
  945.  
  946. pastobjscale:
  947.  
  948.  move.w (a0)+,d2    ; height
  949.  add.w AUXY,d2
  950.  ext.l d2
  951.  asl.l #7,d2
  952.  sub.l yoff,d2
  953.  divs d1,d2    
  954.  add.w MIDDLEY,d2
  955.  
  956.  
  957.  divs d1,d0
  958.  add.w MIDDLEX,d0    ;x pos of middle
  959.  
  960. ; Need to calculate:
  961. ; Width of object in pixels
  962. ; height of object in pixels
  963. ; horizontal constants
  964. ; vertical constants.
  965.  
  966.  move.l LINKFILE,a6
  967.  lea FrameData(a6),a6
  968.  move.l #Objects,a5
  969.  move.w 2(a0),d7
  970.  asl.w #4,d7
  971.  adda.w d7,a5
  972.  asl.w #4,d7
  973.  adda.w d7,a6
  974.  
  975.  clr.b LIGHTIT
  976.  clr.b ADDITIVE
  977.  move.b 4(a0),d7
  978.  btst #7,d7
  979.  sne FLIPIT
  980.  and.b #127,d7
  981.  sub.b #2,d7
  982.  blt.s .NOTALIGHT
  983.  
  984.  cmp.b #4,d7
  985.  blt.s .isalight
  986.  
  987.  st ADDITIVE
  988.  bra.s .NOTALIGHT
  989. .isalight:
  990.  
  991.  st LIGHTIT
  992.  move.b d7,WHICHLIGHTPAL
  993.  
  994. .NOTALIGHT:
  995.  
  996.  moveq #0,d7
  997.  move.b 5(a0),d7
  998.  lea (a6,d7.w*8),a6
  999.  
  1000.  move.l #consttab,a3
  1001.  
  1002.  moveq #0,d3
  1003.  moveq #0,d4
  1004.  move.b (a0)+,d3
  1005.  move.b (a0)+,d4
  1006.  lsl.l #7,d3
  1007.  lsl.l #7,d4
  1008.  divs d1,d3 ;width in pixels
  1009.  divs d1,d4 ;height in pixels
  1010.  
  1011.  sub.w d4,d2
  1012.  sub.w d3,d0
  1013.  cmp.w rightclipb,d0
  1014.  bge objbehind
  1015.  add.w d3,d3
  1016.  cmp.w objclipb,d2
  1017.  bge objbehind
  1018.  
  1019.  add.w d4,d4
  1020.  
  1021. * OBTAIN POINTERS TO HORIZ AND VERT
  1022. * CONSTANTS FOR MOVING ACROSS AND
  1023. * DOWN THE OBJECT GRAPHIC.
  1024.  
  1025.  move.l (a5)+,WAD_PTR
  1026.  move.l (a5)+,PTR_PTR
  1027.  add.l 4(a5),a4
  1028.  move.l 4(a5),BASEPAL
  1029.  
  1030.  move.l (a6),d7
  1031.  move.w d7,DOWN_STRIP
  1032.  move.l PTR_PTR,a5
  1033.  
  1034.  tst.b FLIPIT
  1035.  beq.s .nfl1
  1036.  
  1037.  move.w 4(a6),d6
  1038.  add.w d6,d6
  1039.  subq #1,d6
  1040.  lea (a5,d6.w*4),a5
  1041.  
  1042. .nfl1:
  1043.  swap d7
  1044.  asl.w #2,d7
  1045.  adda.w d7,a5
  1046. fl1:
  1047.  
  1048.  move.w d1,d7
  1049.  moveq #0,d6
  1050.  move.w 4(a6),d6
  1051.  add.w d6,d6
  1052.  subq #1,d6
  1053.  mulu d6,d7
  1054.  moveq #0,d6
  1055.  move.b -2(a0),d6
  1056.  beq objbehind
  1057.  divu d6,d7
  1058.  swap d7
  1059.  clr.w d7
  1060.  swap d7
  1061.  lea (a3,d7.l*8),a2    ; pointer to
  1062.             ; horiz const
  1063.  move.w d1,d7
  1064.  move.w 6(a6),d6
  1065.  add.w d6,d6
  1066.  subq #1,d6
  1067.  mulu d6,d7
  1068.  moveq #0,d6
  1069.  move.b -1(a0),d6
  1070.  beq objbehind
  1071.  divu d6,d7
  1072.  swap d7
  1073.  clr.w d7
  1074.  swap d7
  1075.  lea (a3,d7.l*8),a3    ; pointer to
  1076.              ; vertical c.
  1077.  
  1078. * CLIP OBJECT TO TOP AND BOTTOM
  1079. * OF THE VISIBLE DISPLAY
  1080.  
  1081.  moveq #0,d7
  1082.  cmp.w objclipt,d2
  1083.  bge.s objfitsontop
  1084.  
  1085.  sub.w objclipt,d2
  1086.  add.w d2,d4    ;new height in
  1087.         ;pixels
  1088.  ble objbehind  ; nothing to draw
  1089.  
  1090.  move.w d2,d7
  1091.  neg.w d7    ; factor to mult.
  1092.          ; constants by
  1093.          ; at top of obj.
  1094.  move.w objclipt,d2
  1095.  
  1096. objfitsontop:
  1097.  
  1098.  move.w objclipb,d6
  1099.  sub.w d2,d6
  1100.  cmp.w d6,d4
  1101.  ble.s objfitsonbot
  1102.  
  1103.  move.w d6,d4
  1104.  
  1105. objfitsonbot:
  1106.  
  1107.  subq #1,d4
  1108.  blt objbehind
  1109.  
  1110.  move.l #ontoscr,a6
  1111.  move.l (a6,d2.w*4),d2
  1112.  add.l FASTBUFFER,d2
  1113.  move.l d2,toppt
  1114.  
  1115.  cmp.w leftclipb,d0
  1116.  bge.s okonleft
  1117.  
  1118.  sub.w leftclipb,d0
  1119.  add.w d0,d3
  1120.  ble objbehind
  1121.  
  1122.  move.w (a2),d1
  1123.  move.w 2(a2),d2
  1124.  neg.w d0
  1125.  muls d0,d1
  1126.  mulu d0,d2
  1127.  swap d2
  1128.  add.w d2,d1
  1129.  move.w leftclipb,d0
  1130.  
  1131.  asl.w #2,d1
  1132.  tst.b FLIPIT
  1133.  beq.s .nfl2
  1134.  
  1135.  suba.w d1,a5
  1136.  suba.w d1,a5
  1137.  
  1138. .nfl2:
  1139.  
  1140.  adda.w d1,a5 
  1141.  
  1142. okonleft:
  1143.  
  1144.  move.w d0,d6
  1145.  add.w d3,d6
  1146.  sub.w rightclipb,d6
  1147.  blt.s okrightside
  1148.  
  1149.  sub.w #1,d3
  1150.  sub.w d6,d3
  1151.  
  1152. okrightside:
  1153.  
  1154.  ext.l d0
  1155.  add.l d0,toppt
  1156.  
  1157.  move.w (a3),d5
  1158.  move.w 2(a3),d6
  1159.  muls d7,d5
  1160.  mulu d7,d6
  1161.  swap d6
  1162.  add.w d6,d5
  1163.  add.w DOWN_STRIP(PC),d5    ;d5 contains
  1164.          ;top offset into
  1165.          ;each strip.
  1166.  add.l #$80000000,d5
  1167.      
  1168.  move.l (a2),d7
  1169.  tst.b FLIPIT
  1170.  beq.s .nfl3
  1171.  neg.l d7
  1172. .nfl3:
  1173.  move.l d7,a2
  1174.  moveq.l #0,d7
  1175.  move.l a5,midobj
  1176.  move.l (a3),d2
  1177.  swap d2
  1178.  
  1179.  move.l #0,a1
  1180.  
  1181.  tst.b LIGHTIT
  1182.  bne DRAWITLIGHTED
  1183.  
  1184.  tst.b ADDITIVE
  1185.  bne DRAWITADDED
  1186.  
  1187. drawrightside:
  1188.  swap d7
  1189.  move.l midobj(pc),a5
  1190.  lea (a5,d7.w*4),a5
  1191.  swap d7
  1192.  add.l a2,d7
  1193.  move.l WAD_PTR(PC),a0
  1194.  
  1195.  move.l toppt(pc),a6
  1196.  adda.w a1,a6
  1197.  addq #1,a1
  1198.  move.l (a5),d1
  1199.  beq blankstrip
  1200.  
  1201.  and.l #$ffffff,d1
  1202.  add.l d1,a0
  1203.  
  1204.  move.b (a5),d1
  1205.  cmp.b #1,d1
  1206.  bgt.s ThirdThird
  1207.  beq.s SecThird
  1208.  move.l d5,d6
  1209.  move.l d5,d1
  1210.  move.w d4,-(a7)
  1211. .drawavertstrip
  1212.  move.b 1(a0,d1.w*2),d0
  1213.  and.b #%00011111,d0
  1214.  beq.s .dontplotthisoneitsblack
  1215.  move.b (a4,d0.w*2),(a6)
  1216. .dontplotthisoneitsblack:
  1217.  adda.w #320,a6
  1218.  add.l d2,d6
  1219.  addx.w d2,d1
  1220.  dbra d4,.drawavertstrip
  1221.  move.w (a7)+,d4
  1222. blankstrip:
  1223.  dbra d3,drawrightside
  1224.  bra.s objbehind
  1225.  
  1226. SecThird:
  1227.  move.l d5,d1
  1228.  move.l d5,d6
  1229.  move.w d4,-(a7)
  1230. .drawavertstrip
  1231.  move.w (a0,d1.w*2),d0
  1232.  lsr.w #5,d0
  1233.  and.w #%11111,d0
  1234.  beq.s .dontplotthisoneitsblack
  1235.  move.b (a4,d0.w*2),(a6)
  1236. .dontplotthisoneitsblack:
  1237.  adda.w #320,a6
  1238.  add.l d2,d6
  1239.  addx.w d2,d1
  1240.  dbra d4,.drawavertstrip
  1241.  move.w (a7)+,d4
  1242.  dbra d3,drawrightside
  1243.  bra.s objbehind
  1244.  
  1245. ThirdThird:
  1246.  move.l d5,d1
  1247.  move.l d5,d6
  1248.  move.w d4,-(a7)
  1249. .drawavertstrip
  1250.  move.b (a0,d1.w*2),d0
  1251.  lsr.b #2,d0
  1252.  and.b #%11111,d0
  1253.  beq.s .dontplotthisoneitsblack
  1254.  move.b (a4,d0.w*2),(a6)
  1255. .dontplotthisoneitsblack:
  1256.  adda.w #320,a6
  1257.  add.l d2,d6
  1258.  addx.w d2,d1
  1259.  dbra d4,.drawavertstrip
  1260.  move.w (a7)+,d4
  1261.  dbra d3,drawrightside
  1262.  
  1263. objbehind:
  1264.  movem.l (a7)+,d0-d7/a0-a6
  1265.  rts
  1266.  
  1267. DRAWITADDED:
  1268.  move.l BASEPAL,a4
  1269.  
  1270. drawrightsideADD:
  1271.  swap d7
  1272.  move.l midobj(pc),a5
  1273.  lea (a5,d7.w*4),a5
  1274.  swap d7
  1275.  add.l a2,d7
  1276.  move.l WAD_PTR(PC),a0
  1277.  
  1278.  move.l toppt(pc),a6
  1279.  adda.w a1,a6
  1280.  addq #1,a1
  1281.  move.l (a5),d1
  1282.  beq blankstripADD
  1283.  
  1284.  and.l #$ffffff,d1
  1285.  add.l d1,a0
  1286.  
  1287.  move.b (a5),d1
  1288.  cmp.b #1,d1
  1289.  bgt.s ThirdThirdADD
  1290.  beq.s SecThirdADD
  1291.  move.l d5,d6
  1292.  move.l d5,d1
  1293.  move.w d4,-(a7)
  1294. .drawavertstrip
  1295.  move.b 1(a0,d1.w*2),d0
  1296.  and.b #%00011111,d0
  1297.  lsl.w #8,d0
  1298.  move.b (a6),d0
  1299.  move.b (a4,d0.w),(a6)
  1300.  adda.w #320,a6
  1301.  add.l d2,d6
  1302.  addx.w d2,d1
  1303.  dbra d4,.drawavertstrip
  1304.  move.w (a7)+,d4
  1305. blankstripADD:
  1306.  dbra d3,drawrightsideADD
  1307.  bra objbehind
  1308.  
  1309. SecThirdADD:
  1310.  move.l d5,d1
  1311.  move.l d5,d6
  1312.  move.w d4,-(a7)
  1313. .drawavertstrip
  1314.  move.w (a0,d1.w*2),d0
  1315.  lsr.w #5,d0
  1316.  and.w #%11111,d0
  1317.  lsl.w #8,d0
  1318.  move.b (a6),d0
  1319.  move.b (a4,d0.w),(a6)
  1320.  adda.w #320,a6
  1321.  add.l d2,d6
  1322.  addx.w d2,d1
  1323.  dbra d4,.drawavertstrip
  1324.  move.w (a7)+,d4
  1325.  dbra d3,drawrightsideADD
  1326.  bra objbehind
  1327.  
  1328. ThirdThirdADD:
  1329.  move.l d5,d1
  1330.  move.l d5,d6
  1331.  move.w d4,-(a7)
  1332. .drawavertstrip
  1333.  move.b (a0,d1.w*2),d0
  1334.  lsr.b #2,d0
  1335.  and.b #%11111,d0
  1336.  lsl.w #8,d0
  1337.  move.b (a6),d0
  1338.  move.b (a4,d0.w),(a6)
  1339. .dontplotthisoneitsblack:
  1340.  adda.w #320,a6
  1341.  add.l d2,d6
  1342.  addx.w d2,d1
  1343.  dbra d4,.drawavertstrip
  1344.  move.w (a7)+,d4
  1345.  dbra d3,drawrightsideADD
  1346.  
  1347.  bra objbehind
  1348.  
  1349. DRAWITLIGHTED:
  1350.  
  1351. ; Make up lighting values
  1352.  
  1353.  movem.l d0-d7/a0-a6,-(a7)
  1354.  
  1355.  move.l #ANGLEBRIGHTS,a2
  1356.  move.l #$80808080,(a2)
  1357.  move.l #$80808080,4(a2)
  1358.  move.l #$80808080,8(a2)
  1359.  move.l #$80808080,12(a2)
  1360.  move.l #$80808080,16(a2)
  1361.  move.l #$80808080,20(a2)
  1362.  move.l #$80808080,24(a2)
  1363.  move.l #$80808080,28(a2)
  1364.  
  1365.  move.l #$80808080,32(a2)
  1366.  move.l #$80808080,36(a2)
  1367.  move.l #$80808080,40(a2)
  1368.  move.l #$80808080,44(a2)
  1369.  move.l #$80808080,48(a2)
  1370.  move.l #$80808080,52(a2)
  1371.  move.l #$80808080,56(a2)
  1372.  move.l #$80808080,60(a2)
  1373.  
  1374.  move.w currzone(pc),d0
  1375.  bsr CALCBRIGHTSINZONE
  1376.  
  1377.  move.l #ANGLEBRIGHTS+32,a2
  1378.  
  1379. ; Now do the brightnesses of surrounding
  1380. ; zones:
  1381.  
  1382. ; move.l FloorLines,a1
  1383. ; move.w currzone,d0
  1384. ; move.l ZoneAdds,a4
  1385. ; move.l (a4,d0.w*4),a4
  1386. ; add.l LEVELDATA,a4
  1387. ; move.l a4,a5
  1388. ; 
  1389. ; adda.w ToExitList(a4),a5
  1390. ; 
  1391. ;.doallwalls
  1392. ; move.w (a5)+,d0
  1393. ; blt .nomorewalls
  1394. ;
  1395. ; asl.w #4,d0
  1396. ; lea (a1,d0.w),a3
  1397. ; 
  1398. ; move.w 8(a3),d0
  1399. ; blt.s .solidwall ; a wall not an exit.
  1400. ; 
  1401. ; movem.l a1/a4/a5,-(a7) 
  1402. ; bsr CALCBRIGHTSINZONE
  1403. ; movem.l (a7)+,a1/a4/a5
  1404. ; bra .doallwalls
  1405. ;
  1406. ;.solidwall:
  1407. ; move.w 4(a3),d1
  1408. ; move.w 6(a3),d2
  1409. ; 
  1410. ; move.w oldx,newx
  1411. ; move.w oldz,newz
  1412. ; sub.w d2,newx
  1413. ; add.w d1,newz
  1414. ;
  1415. ; movem.l d0-d7/a0-a6,-(a7)
  1416. ; jsr HeadTowardsAng
  1417. ; movem.l (a7)+,d0-d7/a0-a6
  1418. ; move.w AngRet,d1
  1419. ; neg.w d1
  1420. ; and.w #8191,d1
  1421. ; asr.w #8,d1
  1422. ; asr.w #1,d1
  1423.  
  1424. ; move.b #48,(a2,d1.w)
  1425. ; move.b #48,16(a2,d1.w)
  1426. ; bra .doallwalls 
  1427. ;
  1428. ;.nomorewalls:
  1429.  
  1430.  move.l #xzangs,a0
  1431.  move.l #ANGLEBRIGHTS,a1
  1432.  move.w #15,d7
  1433.  sub.l a2,a2
  1434.  sub.l a3,a3
  1435.  sub.l a4,a4
  1436.  sub.l a5,a5
  1437.  moveq #00,d0
  1438.  moveq #00,d1
  1439. averageangle:
  1440.  
  1441.  moveq #0,d4
  1442.  move.b 16(a1),d4
  1443.  cmp.b #$80,d4
  1444.  beq.s .nobright
  1445.  
  1446.  neg.w d4
  1447.  add.w #48,d4
  1448.  cmp.b d1,d4
  1449.  ble.s .nobrightest
  1450.  move.b d4,d1
  1451. .nobrightest:
  1452.  
  1453.  
  1454.  move.w (a0),d5
  1455.  move.w 2(a0),d6
  1456.  muls d4,d5
  1457.  muls d4,d6
  1458.  add.l d5,a2
  1459.  add.l d6,a3
  1460.  
  1461. .nobright:
  1462.  
  1463. BOTTYL:
  1464.  
  1465.  moveq #0,d4
  1466.  move.b (a1),d4
  1467.  cmp.b #$80,d4
  1468.  beq.s .nobright 
  1469.  neg.w d4
  1470.  add.w #48,d4
  1471.  cmp.b d0,d4
  1472.  blt.s .nobrightest
  1473.  move.b d4,d0
  1474. .nobrightest:
  1475.  
  1476.  move.w (a0),d5
  1477.  move.w 2(a0),d6
  1478.  muls d4,d5
  1479.  muls d4,d6
  1480.  add.l d5,a4
  1481.  add.l d6,a5
  1482.  
  1483. .nobright:
  1484.  addq #4,a0
  1485.  addq #1,a1
  1486.  
  1487.  dbra d7,averageangle
  1488.  
  1489.  move.l a2,d2
  1490.  move.l a3,d3
  1491.  move.l a4,d4
  1492.  move.l a5,d5
  1493.  
  1494.  add.l d2,d4
  1495.  add.l d3,d5    ; bright dir.
  1496.  
  1497.  bsr FINDROUGHANG
  1498.  
  1499. foundang:
  1500.  
  1501.  move.w #7,d2
  1502.  move.w d1,d3 
  1503.  cmp.w d0,d1
  1504.  beq.s INMIDDLE
  1505.  bgt.s .okpicked
  1506.  move.w d0,d3
  1507. .okpicked
  1508.  
  1509.  move.w d0,d2
  1510.  add.w d1,d2    ; total brightness
  1511.  
  1512.  muls #16,d1
  1513.  subq #1,d1
  1514.  divs d2,d1
  1515.  move.w d1,d2
  1516.  
  1517. INMIDDLE:
  1518.  ; d2=y distance from middle of brightest pt.
  1519.  ; d3=brightness
  1520.  neg.w d3
  1521.  add.w #48,d3
  1522.  
  1523.  move.l #willy,a0
  1524.  move.l #guff,a1
  1525.  add.l guffptr,a1
  1526. ; add.l #16*7,guffptr
  1527. ; cmp.l #16*7*15,guffptr
  1528. ; ble.s .noreguff
  1529. ; move.l #0,guffptr
  1530. ;.noreguff:
  1531.  
  1532.  muls #7*16,d2
  1533.  add.l d2,a1
  1534.  
  1535.  move.w p1_angpos,d0
  1536.  neg.w d0
  1537.  add.w #4096,d0
  1538.  and.w #8191,d0
  1539.  asr.w #8,d0
  1540.  asr.w #1,d0
  1541.  
  1542.  sub.b #3,d0
  1543.  add.b d4,d0
  1544.  and.w #15,d0
  1545.  move.w #6,d1
  1546. .across:
  1547.  move.w #6,d2
  1548.  move.w d0,d5
  1549. .down
  1550.  move.b (a1,d5),d4
  1551.  add.b d3,d4
  1552.  ext.w d4
  1553.  move.w d4,(a0)+
  1554.  addq #1,d5
  1555.  and.w #15,d5
  1556.  dbra d2,.down
  1557.  add.w #16,a1
  1558.  dbra d1,.across
  1559.  
  1560. ; jsr CALCBRIGHTRINGS
  1561.  
  1562. ; Need to scan around zone points putting in
  1563. ; brightnesses.
  1564.  
  1565.  
  1566. ; move.w PLR1_xoff,newx
  1567. ; move.w PLR1_zoff,newz
  1568. ; move.w thisxpos,oldx
  1569. ; move.w thiszpos,oldz
  1570. ; movem.l d0-d7/a0-a6,-(a7)
  1571. ; jsr HeadTowardsAng
  1572. ; movem.l (a7)+,d0-d7/a0-a6
  1573.  
  1574.  
  1575. ; move.w #0,d0
  1576. ; move.w AngRet,d0
  1577. ; move.w p1_angpos,d0
  1578. ; neg.w d0
  1579. ; add.w #4096,d0
  1580. ; and.w #8191,d0
  1581. ; asr.w #8,d0
  1582. ; asr.w #1,d0
  1583. ; 
  1584. ; sub.b #6,d0
  1585. ; and.b #15,d0
  1586. ; move.l #ANGLEBRIGHTS,a1
  1587. ; 
  1588. ; move.l #willy,a0
  1589. ; moveq #6,d1
  1590. ;.across:
  1591. ; moveq #0,d3
  1592. ; moveq #0,d4
  1593. ; move.b (a1,d0.w),d4
  1594. ; bge.s .okp1
  1595. ; moveq #0,d4
  1596. ;.okp1
  1597. ; 
  1598. ; move.b 16(a1,d0.w),d3
  1599. ; bge.s .okp2
  1600. ; moveq #0,d3
  1601. ;.okp2
  1602. ; sub.w d3,d4
  1603. ; swap d3
  1604. ; swap d4
  1605. ; divs.l #7,d4
  1606. ; moveq #6,d2
  1607. ; moveq #0,d5
  1608. ;.down:
  1609. ; swap d3
  1610. ; move.w d3,(a0,d5.w*2)
  1611. ; swap d3
  1612. ; addq #7,d5
  1613. ; add.l d4,d3
  1614. ; dbra d2,.down
  1615. ; addq #2,d0
  1616. ; and.w #15,d0
  1617. ; addq #2,a0
  1618. ; dbra d1,.across
  1619.  
  1620.  
  1621.  move.w BRIGHTTOADD,d0
  1622.  move.l #willy,a0
  1623.  move.l #willybright,a1
  1624.  move.w #48,d1
  1625. ADDITIN:
  1626.  
  1627.  move.w d0,d2
  1628.  add.w (a1)+,d2
  1629.  ble.s .nopos
  1630.  
  1631.  moveq #0,d2
  1632.  
  1633. .nopos:
  1634.  
  1635.  add.w d2,(a0)+
  1636.  
  1637.  dbra d1,ADDITIN
  1638.  
  1639.  
  1640.  
  1641.  tst.b FLIPIT
  1642.  beq.s LEFTTORIGHT
  1643.  
  1644.  move.l #Brights2,a0
  1645.  bra DONERIGHTTOLEFT
  1646.  
  1647. LEFTTORIGHT:
  1648.  
  1649.  move.l #Brights,a0
  1650. DONERIGHTTOLEFT:
  1651.  move.l #willy,a2
  1652.  move.l BASEPAL,a1
  1653.  move.b WHICHLIGHTPAL,d0
  1654.  asl.w #8,d0
  1655.  add.w d0,a1 
  1656.  move.l #PALS,a3
  1657.  move.w #28,d0
  1658. makepals:
  1659.  
  1660.  move.w (a0)+,d1
  1661.  move.w (a2,d1.w*2),d1
  1662.  bge.s .okpos
  1663.  moveq #0,d1
  1664. .okpos: 
  1665.  cmp.w #31,d1
  1666.  blt.s .okneg
  1667.  move.w #31,d1
  1668. .okneg:
  1669.  
  1670.  move.l (a1,d1.w*8),(a3)+
  1671.  move.b #0,-4(a3)
  1672.  move.l 4(a1,d1.w*8),(a3)+
  1673.  
  1674.  dbra d0,makepals
  1675.  
  1676.  movem.l (a7)+,d0-d7/a0-a6
  1677.  
  1678.  move.l #PALS,a4
  1679.  
  1680. drawlightlop
  1681.  swap d7
  1682.  move.l midobj(pc),a5
  1683.  lea (a5,d7.w*4),a5
  1684.  swap d7
  1685.  add.l a2,d7
  1686.  move.l WAD_PTR(PC),a0
  1687.  
  1688.  move.l toppt(pc),a6
  1689.  adda.w a1,a6
  1690.  addq #1,a1
  1691.  move.l (a5),d1
  1692.  beq .blankstrip
  1693.  
  1694.  add.l d1,a0
  1695.  
  1696.  move.l d5,d6
  1697.  move.l d5,d1
  1698.  move.w d4,-(a7)
  1699. .drawavertstrip
  1700.  move.b (a0,d1.w),d0
  1701.  beq.s .dontplotthisoneitsblack
  1702.  move.b (a4,d0.w),(a6)
  1703. .dontplotthisoneitsblack:
  1704.  adda.w #320,a6
  1705.  add.l d2,d6
  1706.  addx.w d2,d1
  1707.  dbra d4,.drawavertstrip
  1708.  move.w (a7)+,d4
  1709. .blankstrip:
  1710.  dbra d3,drawlightlop
  1711.  bra objbehind
  1712.  
  1713. *********************************************
  1714. FINDROUGHANG:
  1715.  neg.l d5
  1716.  moveq #0,d7
  1717.  tst.l d4
  1718.  bge.s .no8
  1719.  add.w #8,d7
  1720.  neg.l d4
  1721. .no8
  1722.  tst.l d5
  1723.  bge.s .no4
  1724.  neg.l d5
  1725.  add.w #4,d7
  1726. .no4
  1727.  cmp.l d5,d4
  1728.  bge.s .no2
  1729.  addq #2,d7
  1730.  exg d4,d5
  1731. .no2:
  1732.  asr.l #1,d4
  1733.  cmp.l d5,d4
  1734.  bge.s .no1
  1735.  addq #1,d7
  1736. .no1
  1737.  
  1738.  move.w maptoang(pc,d7.w*2),d4    ; retun angle
  1739.  rts
  1740.  
  1741. maptoang:
  1742.  dc.w 3,2,0,1,4,5,7,6
  1743.  dc.w 12,13,15,14,11,10,8,9
  1744.  
  1745. guffptr: dc.l 0
  1746.  
  1747. *********************************************
  1748. CALCBRIGHTRINGS:
  1749.  move.l #ANGLEBRIGHTS,a2
  1750.  move.l #$80808080,(a2)
  1751.  move.l #$80808080,4(a2)
  1752.  move.l #$80808080,8(a2)
  1753.  move.l #$80808080,12(a2)
  1754.  move.l #$80808080,16(a2)
  1755.  move.l #$80808080,20(a2)
  1756.  move.l #$80808080,24(a2)
  1757.  move.l #$80808080,28(a2)
  1758.  
  1759.  move.l #$80808080,32(a2)
  1760.  move.l #$80808080,36(a2)
  1761.  move.l #$80808080,40(a2)
  1762.  move.l #$80808080,44(a2)
  1763.  move.l #$80808080,48(a2)
  1764.  move.l #$80808080,52(a2)
  1765.  move.l #$80808080,56(a2)
  1766.  move.l #$80808080,60(a2)
  1767.  
  1768.  move.w currzone(pc),d0
  1769.  bsr CALCBRIGHTSINZONE
  1770.  
  1771.  move.l #ANGLEBRIGHTS+32,a2
  1772.  
  1773. ; Now do the brightnesses of surrounding
  1774. ; zones:
  1775.  
  1776.  move.l FloorLines,a1
  1777.  move.w currzone,d0
  1778.  move.l ZoneAdds,a4
  1779.  move.l (a4,d0.w*4),a4
  1780.  add.l LEVELDATA,a4
  1781.  move.l a4,a5
  1782.  
  1783.  adda.w ToExitList(a4),a5
  1784.  
  1785. .doallwalls
  1786.  move.w (a5)+,d0
  1787.  blt .nomorewalls
  1788.  
  1789.  asl.w #4,d0
  1790.  lea (a1,d0.w),a3
  1791.  
  1792.  move.w 8(a3),d0
  1793.  blt.s .solidwall ; a wall not an exit.
  1794.  
  1795.  movem.l a1/a4/a5,-(a7) 
  1796.  bsr CALCBRIGHTSINZONE
  1797.  movem.l (a7)+,a1/a4/a5
  1798.  bra .doallwalls
  1799.  
  1800. .solidwall:
  1801.  move.w 4(a3),d1
  1802.  move.w 6(a3),d2
  1803.  
  1804.  move.w oldx,newx
  1805.  move.w oldz,newz
  1806.  sub.w d2,newx
  1807.  add.w d1,newz
  1808.  
  1809.  movem.l d0-d7/a0-a6,-(a7)
  1810.  jsr HeadTowardsAng
  1811.  movem.l (a7)+,d0-d7/a0-a6
  1812.  move.w AngRet,d1
  1813.  neg.w d1
  1814.  and.w #8191,d1
  1815.  asr.w #8,d1
  1816.  asr.w #1,d1
  1817.  
  1818.  move.b #48,(a2,d1.w)
  1819.  move.b #48,16(a2,d1.w)
  1820.  bra .doallwalls 
  1821.  
  1822. .nomorewalls:
  1823.  
  1824.  
  1825. ; move.b #0,(a2)
  1826. ; move.b #20,8(a2)
  1827. ; move.b #0,16(a2)
  1828. ; move.b #20,24(a2)
  1829.  
  1830.  move.l #ANGLEBRIGHTS,a0
  1831.  bsr TWEENBRIGHTS
  1832.  move.l #ANGLEBRIGHTS+16,a0
  1833.  bsr TWEENBRIGHTS
  1834.  move.l #ANGLEBRIGHTS+32,a0
  1835.  bsr TWEENBRIGHTS
  1836.  move.l #ANGLEBRIGHTS+48,a0
  1837.  bsr TWEENBRIGHTS
  1838.  
  1839.  move.l #ANGLEBRIGHTS,a0
  1840.  move.b #15,d0
  1841. ADDBRIGHTS
  1842.  
  1843.  moveq #0,d3
  1844.  moveq #0,d4
  1845.  move.b 32(a0),d3
  1846.  move.b 48(a0),d4
  1847.  neg.w d3
  1848.  add.w #48,d3
  1849.  neg.w d4
  1850.  add.w #48,d4
  1851.  asr.w #1,d4
  1852.  asr.w #1,d3
  1853.  
  1854.  move.b 16(a0),d5
  1855.  sub.b d5,d4
  1856.  ble.s .ok2
  1857.  moveq #0,d4
  1858. .ok2:
  1859.  move.b (a0),d5
  1860.  sub.b d5,d3
  1861.  ble.s .ok1
  1862.  moveq #0,d3
  1863. .ok1:
  1864.  neg.b d3
  1865.  neg.b d4
  1866.  
  1867.  move.b d4,16(a0)
  1868.  move.b d3,(a0)+ 
  1869.  
  1870.  dbra d0,ADDBRIGHTS
  1871.  
  1872.  rts
  1873.  
  1874. **********************************************
  1875.  
  1876. TWEENBRIGHTS:
  1877.  
  1878.  moveq #0,d0
  1879. .backinto:
  1880.  cmp.b #-128,(a0,d0.w)
  1881.  bne.s .okbr
  1882.  addq #1,d0
  1883.  bra.s .backinto
  1884.  
  1885. .okbr:
  1886.  
  1887.  move.b d0,d7 ;starting pos
  1888.  move.b d0,d1 ;previous pos
  1889.  
  1890. ; tween to next value
  1891. .findnext
  1892.  addq #1,d0
  1893.  and.w #15,d0
  1894.  cmp.b #-128,(a0,d0.w)
  1895.  beq.s .findnext
  1896.  
  1897.  moveq #0,d2
  1898.  moveq #0,d3
  1899.  move.b (a0,d1.w),d2
  1900.  move.b (a0,d0.w),d3
  1901.  sub.w d2,d3
  1902.  
  1903.  move.w d0,d4
  1904.  sub.w d1,d4
  1905.  bgt.s .okpos
  1906.  add.w #16,d4
  1907. .okpos:
  1908.  
  1909.  swap d2
  1910.  swap d3
  1911.  ext.l d4
  1912.  divs.l d4,d3
  1913.  
  1914.  subq #1,d4 ; number of tweens
  1915.  
  1916. .putintween
  1917.  swap d2
  1918.  move.b d2,(a0,d1.w)
  1919.  swap d2
  1920.  add.l d3,d2
  1921.  addq #1,d1
  1922.  and.w #15,d1
  1923.  dbra d4,.putintween
  1924.  
  1925.  cmp.b d0,d7
  1926.  beq.s .doneall
  1927.  
  1928.  move.w d0,d1
  1929.  bra .findnext
  1930.  
  1931. .doneall
  1932.  
  1933.  rts
  1934.  
  1935. IMINTHETOPDAD: dc.w 0
  1936.  
  1937. *************************************
  1938. CALCBRIGHTSINZONE:
  1939.  move.w d0,d1
  1940.  muls #20,d1
  1941.  move.l ZoneBorderPts,a1
  1942.  add.l d1,a1
  1943.  move.l #CurrentPointBrights,a0
  1944.  lea (a0,d1.l*4),a0
  1945.  
  1946.  tst.b IMINTHETOPDAD
  1947.  beq.s .notintopdad
  1948.  adda.w #4,a0
  1949. .notintopdad
  1950.  
  1951. ; A0 points at the brightnesses of the zone points.
  1952. ; a1 points at the border points of the zone.
  1953. ; list is terminated with -1.
  1954.  
  1955.  move.l Points,a3
  1956.  
  1957.  move.w thisxpos,oldx
  1958.  move.w thiszpos,oldz
  1959.  move.w #10,speed
  1960.  move.w #0,Range
  1961.  
  1962. DOPTBR
  1963.  move.w (a1)+,d0    ;pt number
  1964.  blt DONEPTBR
  1965.  
  1966.  move.w (a3,d0.w*4),newx
  1967.  move.w 2(a3,d0.w*4),newz
  1968.  
  1969.  movem.l d0-d7/a0-a6,-(a7)
  1970.  jsr HeadTowardsAng
  1971.  movem.l (a7)+,d0-d7/a0-a6
  1972.  
  1973.  move.w AngRet,d1
  1974.  neg.w d1
  1975.  and.w #8191,d1
  1976.  asr.w #8,d1
  1977.  asr.w #1,d1
  1978.  
  1979.  move.w (a0),d0
  1980.  bge.s .okpos
  1981.  add.w #332,d0
  1982.  asr.w #2,d0
  1983.  neg.w d0
  1984.  add.w #332,d0
  1985.  
  1986. .okpos
  1987.  sub.w #300,d0
  1988.  bge.s .okpos3
  1989.  move.w #0,d0
  1990. .okpos3:
  1991.  move.b d0,d2
  1992.  asr.b #1,d2
  1993.  add.b d2,d0
  1994.  move.b d0,(a2,d1.w)
  1995.  move.w 2(a0),d0
  1996.  bge.s .okpos2
  1997.  add.w #332,d0
  1998.  asr.w #2,d0
  1999.  neg.w d0
  2000.  add.w #332,d0
  2001. .okpos2
  2002.  sub.w #300,d0
  2003.  bge.s .okpos4
  2004.  move.w #0,d0
  2005. .okpos4:
  2006.  
  2007.  move.b d0,d2
  2008.  asr.b #1,d2
  2009.  add.b d2,d0
  2010.  move.b d0,16(a2,d1.w)
  2011.  adda.w #8,a0
  2012.  
  2013.  bra DOPTBR
  2014. DONEPTBR
  2015.  rts
  2016.  
  2017. thisxpos: dc.w 0
  2018. thiszpos: dc.w 0
  2019. FACINGANG: dc.w 0
  2020.  
  2021. ANGLEBRIGHTS: ds.l 8*2
  2022.  
  2023. Brights:
  2024.  dc.w 3
  2025.  dc.w 8,9,10,11,12
  2026.  dc.w 15,16,17,18,19
  2027.  dc.w 21,22,23,24,25,26,27
  2028.  dc.w 29,30,31,32,33
  2029.  dc.w 36,37,38,39,40
  2030.  dc.w 45
  2031.  
  2032. Brights2:
  2033.  dc.w 3
  2034.  dc.w 12,11,10,9,8
  2035.  dc.w 19,18,17,16,15
  2036.  dc.w 27,26,25,24,23,22,21
  2037.  dc.w 33,32,31,30,29
  2038.  dc.w 40,39,38,37,36
  2039.  dc.w 45
  2040.  
  2041.  
  2042. PALS:
  2043.  ds.l 2*49
  2044.  
  2045. willy:
  2046.  dc.w 0,0,0,0,0,0,0
  2047.  dc.w 5,5,5,5,5,5,5
  2048.  dc.w 10,10,10,10,10,10,10
  2049.  dc.w 15,15,15,15,15,15,15
  2050.  dc.w 20,20,20,20,20,20,20
  2051.  dc.w 25,25,25,25,25,25,25
  2052.  dc.w 30,30,30,30,30,30,30
  2053.  
  2054. willybright:
  2055.  dc.w 30,30,30,30,30,30,30
  2056.  dc.w 30,20,20,20,20,20,30
  2057.  dc.w 30,20,6,3,6,20,30
  2058.  dc.w 30,20,6,0,6,20,30
  2059.  dc.w 30,20,6,6,6,20,30
  2060.  dc.w 30,20,20,20,20,20,30
  2061.  dc.w 30,30,30,30,30,30,30
  2062.  
  2063. xzangs:
  2064.  dc.w 0,23,10,20,16,16,20,10
  2065.  dc.w 23,0,20,-10,16,-16,10,-20
  2066.  dc.w 0,-23,-10,-20,-16,-16,-20,-10
  2067.  dc.w -23,0,-20,10,-16,16,-10,20
  2068.  
  2069. guff:
  2070.  incbin "ab3:includes/guff"
  2071.  
  2072. midx: dc.w 0
  2073. objpixwidth: dc.w 0
  2074. tmptst: dc.l 0
  2075. toppt: dc.l 0
  2076. doneit: dc.w 0
  2077. replaceend: dc.w 0
  2078. saveend: dc.w 0
  2079. midobj: dc.l 0
  2080. obadd: dc.l 0 
  2081. DOWN_STRIP: dc.w 0
  2082. WAD_PTR: dc.l 0
  2083. PTR_PTR: dc.l 0
  2084.  
  2085. PolyAngPtr: dc.l 0
  2086. PointAngPtr: dc.l 0
  2087.  
  2088.  ds.w 100
  2089. objintocop:
  2090.  incbin "ab3:includes/XTOCOPX"
  2091.  ds.w 100
  2092.  
  2093.    *********************************
  2094. ***************************************
  2095.    ********************************* 
  2096. tstddd: dc.l 0 
  2097.  
  2098. polybehind:
  2099.  rts
  2100.  
  2101. SORTIT: dc.w 0
  2102.  
  2103. objbright:
  2104.  dc.w 0
  2105. ObjAng: dc.w 0
  2106.  
  2107. POLYMIDDLEY: dc.w 0
  2108. OBJONOFF: dc.l 0
  2109.  
  2110. PolygonObj:
  2111.  
  2112. ************************
  2113.  
  2114. ; move.w 4(a0),d0    ; ypos
  2115. ; move.w 2(a0),d1
  2116. ; add.w #2,d1
  2117. ; add.w d1,d0
  2118. ; cmp.w #-48,d0
  2119. ; blt nobounce
  2120. ; neg.w d1
  2121. ; add.w d1,d0
  2122. ;nobounce:
  2123. ; move.w d1,2(a0)
  2124. ; move.w d0,4(a0)
  2125.  
  2126. ; add.w #80*2,boxang
  2127. ; and.w #8191,boxang
  2128.  
  2129. ************************
  2130.  
  2131.  move.w Facing(a0),ObjAng
  2132.  
  2133.  move.w MIDDLEY,POLYMIDDLEY
  2134.  
  2135.  move.w (a0)+,d0
  2136.  move.l ObjectPoints,a4
  2137.  
  2138.  move.w (a4,d0.w*8),thisxpos
  2139.  move.w 4(a4,d0.w*8),thiszpos
  2140.  
  2141.  move.w 2(a1,d0.w*8),d1    ; zpos of mid
  2142.  blt polybehind
  2143.  bgt.s .okinfront
  2144.  
  2145.  move.l a0,a3
  2146.  sub.l PLR1_Obj,a3
  2147.  cmp.l #130,a3
  2148.  bne polybehind
  2149.  
  2150.  tst.b whichdoing
  2151.  bne polybehind
  2152.  
  2153.  move.w #1,d1
  2154.  move.w #80,POLYMIDDLEY
  2155.  tst.b FULLSCR
  2156.  beq.s .okinfront
  2157.  move.w #120,POLYMIDDLEY
  2158. .okinfront:
  2159.  
  2160.  movem.l d0-d7/a0-a6,-(a7)
  2161.  
  2162.  jsr CALCBRIGHTRINGS
  2163.  
  2164.  move.l #ANGLEBRIGHTS,a0
  2165.  move.l #PointAndPolyBrights,a1
  2166.  move.w #15,d7
  2167.  move.w #8,d6
  2168. MYacross:
  2169.  moveq #0,d3
  2170.  moveq #0,d4
  2171.  
  2172.  move.b 16(a0,d6.w),d4
  2173.  bge.s .okp2
  2174.  moveq #0,d4
  2175. .okp2
  2176.  
  2177.  move.b (a0,d6.w),d3
  2178.  bge.s .okp1
  2179.  moveq #0,d3
  2180. .okp1
  2181.  
  2182.  sub.w d3,d4
  2183.  swap d3
  2184.  swap d4
  2185.  divs.l #8,d4
  2186.  moveq #7,d2
  2187.  moveq #3*16,d5
  2188. .down:
  2189.  swap d3
  2190.  move.b d3,(a1,d5.w)
  2191.  swap d3
  2192.  add.w #16,d5
  2193.  add.l d4,d3
  2194.  dbra d2,.down
  2195.  
  2196. TOPPART:
  2197.  
  2198.  moveq #0,d3
  2199.  moveq #0,d4
  2200.  
  2201.  bchg #3,d6
  2202.  
  2203.  move.b (a0,d6.w),d4
  2204.  bge.s .okp2
  2205.  moveq #0,d4
  2206. .okp2
  2207.  
  2208.  bchg #3,d6
  2209.  
  2210.  move.b (a0,d6.w),d3
  2211.  bge.s .okp1
  2212.  moveq #0,d3
  2213. .okp1
  2214.  
  2215.  sub.w d3,d4
  2216.  swap d3
  2217.  swap d4
  2218.  divs.l #8,d4
  2219.  asr.l #1,d4    ; halfway
  2220.  moveq #3,d2
  2221.  moveq #3*16,d5
  2222. .down:
  2223.  swap d3
  2224.  move.b d3,(a1,d5.w)
  2225.  swap d3
  2226.  sub.w #16,d5
  2227.  add.l d4,d3
  2228.  dbra d2,.down
  2229.  
  2230. BOTPART:
  2231.  
  2232.  moveq #0,d3
  2233.  moveq #0,d4
  2234.  
  2235.  bchg #3,d6
  2236.  
  2237.  move.b 16(a0,d6.w),d4
  2238.  bge.s .okp2
  2239.  moveq #0,d4
  2240. .okp2
  2241.  
  2242.  bchg #3,d6
  2243.  
  2244.  move.b 16(a0,d6.w),d3
  2245.  bge.s .okp1
  2246.  moveq #0,d3
  2247. .okp1
  2248.  
  2249.  sub.w d3,d4
  2250.  swap d3
  2251.  swap d4
  2252.  divs.l #8,d4
  2253.  asr.l #1,d4    ; halfway
  2254.  moveq #3,d2
  2255.  move.w #11*16,d5
  2256. .down:
  2257.  swap d3
  2258.  move.b d3,(a1,d5.w)
  2259.  swap d3
  2260.  add.w #16,d5
  2261.  add.l d4,d3
  2262.  dbra d2,.down
  2263.  
  2264.  
  2265.  subq #1,d6
  2266.  and.w #$f,d6
  2267.  addq #1,a1
  2268.  dbra d7,MYacross
  2269.  
  2270.  movem.l (a7)+,d0-d7/a0-a6
  2271.  
  2272.  
  2273.  move.w (a0),d2
  2274.  move.w d1,d3
  2275.  asr.w #7,d3
  2276.  add.w d3,d2
  2277.  move.w d2,objbright
  2278.  
  2279.  move.w topclip,d2
  2280.  move.w botclip,d3
  2281.  
  2282.  move.w d2,objclipt
  2283.  move.w d3,objclipb
  2284.  
  2285. ; dont use d1 here.
  2286.  
  2287.  move.w 6(a0),d5
  2288.  move.l #POLYOBJECTS,a3
  2289.  move.l (a3,d5.w*4),a3
  2290.  
  2291.  move.w (a3)+,SORTIT
  2292.  
  2293.  move.l a3,START_OF_OBJ
  2294.  
  2295. *******************************************************************
  2296. ***************************************************************
  2297. *****************************************************************
  2298.  
  2299.  move.w (a3)+,num_points
  2300.  move.w (a3)+,d6    ; num_frames
  2301.  
  2302.  
  2303.  move.l a3,POINTER_TO_POINTERS
  2304.  lea (a3,d6.w*4),a3
  2305.  
  2306.  move.l a3,LinesPtr
  2307.  
  2308.  moveq #0,d5
  2309.  move.w 8(a0),d5
  2310.  
  2311. ************************************************
  2312. * Just for charles (animate automatically)
  2313. ; add.w #1,d5
  2314. ; cmp.w d6,d5
  2315. ; blt.s okless
  2316. ; moveq #0,d5
  2317. ;okless:
  2318. ; move.w d5,8(a0)
  2319. ************************************************ 
  2320.  
  2321.  moveq #0,d2
  2322.  move.l POINTER_TO_POINTERS,a4
  2323.  move.w (a4,d5.w*4),d2
  2324.  add.l START_OF_OBJ,d2
  2325.  move.l d2,PtsPtr
  2326.  move.w 2(a4,d5.w*4),d5
  2327.  add.l START_OF_OBJ,d5
  2328.  move.l d5,PolyAngPtr
  2329.  move.l d2,a3
  2330.  move.w num_points,d5
  2331.  
  2332.  move.l (a3)+,OBJONOFF
  2333.  
  2334.  move.l a3,PointAngPtr
  2335.  move.w d5,d2
  2336.  moveq #0,d3
  2337.  lsr.w #1,d2
  2338.  addx.w d3,d2
  2339.  add.w d2,d2
  2340.  add.w d2,a3
  2341.  subq #1,d5
  2342.  
  2343.  move.l #boxrot,a4
  2344.  
  2345.  move.w ObjAng,d2
  2346.  sub.w #2048,d2
  2347.  sub.w angpos,d2
  2348.  and.w #8191,d2
  2349.  move.l #SineTable,a2
  2350.  lea (a2,d2.w),a5
  2351.  move.l #boxbrights,a6
  2352.      
  2353.  move.w (a5),d6
  2354.  move.w 2048(a5),d7
  2355.          
  2356. rotobj:
  2357.  move.w (a3),d2    ; xpt
  2358.  move.w 2(a3),d3    ; ypt
  2359.  move.w 4(a3),d4    ; zpt
  2360.  
  2361. ; add.w d2,d2
  2362. ; add.w d3,d3
  2363. ; add.w d4,d4
  2364.  
  2365. ; first rotate around z axis.
  2366.  
  2367. ; move.w d2,d6
  2368. ; move.w d3,d7
  2369. ; muls 2048(a2),d3
  2370. ; muls (a2),d2
  2371. ; sub.l d3,d2    ; newx
  2372. ; muls (a2),d7
  2373. ; muls 2048(a2),d6
  2374. ; add.l d7,d6    ; newy
  2375. ; add.l d6,d6
  2376. ; swap d6
  2377. ; add.l d2,d2
  2378. ; swap d2
  2379. ; move.w d6,d3    ; newy
  2380.  
  2381.  muls d7,d4
  2382.  muls d6,d2
  2383.  sub.l d4,d2
  2384.  asr.l #8,d2
  2385.  asr.l #1,d2
  2386.  move.l d2,(a4)+
  2387.  ext.l d3
  2388.  asl.l #6,d3
  2389.  move.l d3,(a4)+
  2390.  move.w (a3),d2
  2391.  move.w 4(a3),d4
  2392.  muls d6,d4
  2393.  muls d7,d2
  2394.  add.l d2,d4
  2395. ; add.l d4,d4
  2396.  swap d4
  2397.  move.w d4,(a4)+
  2398.  
  2399.  addq #6,a3
  2400.  dbra d5,rotobj
  2401.  
  2402.  
  2403.  
  2404.  move.l 4(a1,d0.w*8),d0    ; xpos of mid
  2405.  
  2406.  move.w num_points,d7
  2407.  move.l #boxrot,a2
  2408.  move.l #boxonscr,a3
  2409.  move.l #boxbrights,a6
  2410.  move.w 2(a0),d2
  2411.  subq #1,d7
  2412.  
  2413.  asl.l #1,d0
  2414.  
  2415.  tst.b FULLSCR
  2416.  beq.s smallconv
  2417.  
  2418.  move.w d1,d3
  2419.  asl.w #1,d1
  2420.  add.w d3,d1
  2421.  
  2422.  ext.l d2
  2423.  asl.l #7,d2
  2424.  sub.l yoff,d2
  2425.  asl.l #1,d2
  2426. .convtoscr
  2427.  move.l (a2),d3
  2428.  add.l d0,d3
  2429.  move.l d3,(a2)+
  2430.  move.l (a2),d4
  2431.  add.l d2,d4
  2432.  move.l d4,(a2)+
  2433.  move.w (a2),d5
  2434.  add.w d1,d5
  2435.  ble .ptbehind
  2436.  move.w d5,(a2)+
  2437.  add.w d5,d5
  2438.  
  2439.  move.l d3,d6
  2440.  add.l d6,d6
  2441.  add.l d6,d3
  2442.  move.l d4,d6
  2443.  add.l d6,d6
  2444.  add.l d6,d4
  2445.  
  2446.  divs d5,d3
  2447.  divs d5,d4
  2448.  add.w MIDDLEX,d3
  2449.  add.w POLYMIDDLEY,d4
  2450.  move.w d3,(a3)+
  2451.  move.w d4,(a3)+
  2452.  
  2453.  dbra d7,.convtoscr
  2454.  bra DONECONV
  2455.  
  2456. .ptbehind:
  2457.  move.w d5,(a2)+
  2458.  move.w #32767,(a3)+
  2459.  move.w #32767,(a3)+
  2460.  dbra d7,.convtoscr
  2461.  bra DONECONV
  2462.  
  2463. smallconv
  2464.  
  2465.  asl.w #1,d1
  2466.  ext.l d2
  2467.  asl.l #7,d2
  2468.  sub.l yoff,d2
  2469.  asl.l #1,d2 
  2470. .convtoscr
  2471.  move.l (a2),d3
  2472.  add.l d0,d3
  2473.  move.l d3,(a2)+
  2474.  move.l (a2),d4
  2475.  add.l d2,d4
  2476.  move.l d4,(a2)+
  2477.  move.w (a2),d5
  2478.  add.w d1,d5
  2479.  ble .ptbehind2
  2480.  move.w d5,(a2)+
  2481.  divs d5,d3
  2482.  divs d5,d4
  2483.  add.w MIDDLEX,d3
  2484.  add.w POLYMIDDLEY,d4
  2485.  move.w d3,(a3)+
  2486.  move.w d4,(a3)+
  2487.  
  2488.  dbra d7,.convtoscr
  2489.  
  2490.  bra DONECONV
  2491.  
  2492. .ptbehind2:
  2493.  move.w d5,(a2)+
  2494.  move.w #32767,(a3)+
  2495.  move.w #32767,(a3)+
  2496.  dbra d7,.convtoscr
  2497.  
  2498. DONECONV
  2499.  
  2500. **************************
  2501.  move.w num_points,d7
  2502.  
  2503.  move.l #boxbrights,a6
  2504.  subq #1,d7
  2505.  move.l PointAngPtr,a0
  2506.  move.l #PointAndPolyBrights,a2
  2507.  move.w ObjAng,d2
  2508.  asr.w #8,d2
  2509.  asr.w #1,d2
  2510.  st d5
  2511.  
  2512. calcpointangbrights:
  2513.  
  2514.  moveq #0,d0
  2515.  move.b (a0)+,d0
  2516.  move.b d0,d3
  2517.  add.w d2,d3
  2518.  and.w #$f,d3
  2519.  and.w #$f0,d0
  2520.  add.w d3,d0
  2521.  
  2522.  moveq #0,d1
  2523.  move.b (a2,d0.w),d1
  2524.  bge.s .okpos
  2525.  moveq #0,d1
  2526. .okpos:
  2527.  
  2528.  cmp.w #31,d1
  2529.  ble.s .oksmall
  2530.  move.w #31,d1
  2531. .oksmall:
  2532.  
  2533.  move.w d1,(a6)+
  2534.  
  2535.  dbra d7,calcpointangbrights
  2536.  
  2537. *************************
  2538.  
  2539.  
  2540.  
  2541.  move.l LinesPtr,a1
  2542.  
  2543. ; Now need to sort parts of object
  2544. ; into order.
  2545.  
  2546.  move.l #PartBuffer,a0
  2547.  move.l a0,a2
  2548.  move.w #63,d0
  2549. clrpartbuff:
  2550.  
  2551.  move.l #$80000001,(a2)
  2552.  addq #4,a2
  2553.  
  2554.  dbra d0,clrpartbuff
  2555.  
  2556.  move.l #boxrot,a2
  2557.  
  2558.  move.l OBJONOFF,d5
  2559.  
  2560.  tst.w SORTIT
  2561.  bne.s PutinParts
  2562.  
  2563.  
  2564. putinunsorted:
  2565.  
  2566.  move.w (a1)+,d7
  2567.  
  2568.  
  2569.  blt doneallparts
  2570.  
  2571.  lsr.l #1,d5
  2572.  bcs.s .yeson
  2573.  addq #2,a1
  2574.  bra putinunsorted 
  2575. .yeson:
  2576.  
  2577.  
  2578.  move.w (a1)+,d6
  2579.  move.l #0,(a0)+
  2580.  move.w d7,(a0)
  2581.  addq #4,a0
  2582.  
  2583.  bra putinunsorted
  2584.  
  2585.  
  2586. PutinParts
  2587.  move.w (a1)+,d7
  2588.  blt doneallparts
  2589.  
  2590.  lsr.l #1,d5
  2591.  bcs.s .yeson
  2592.  addq #2,a1
  2593.  bra PutinParts
  2594. .yeson:
  2595.  
  2596.  move.w (a1)+,d6
  2597.  move.l (a2,d6.w),d0
  2598.  asr.l #7,d0
  2599.  muls d0,d0
  2600.  move.l 4(a2,d6.w),d2
  2601.  asr.l #7,d2
  2602.  muls d2,d2
  2603.  add.l d2,d0 
  2604.  move.w 8(a2,d6.w),d2
  2605.  muls d2,d2
  2606.  add.l d2,d0
  2607.  move.l #PartBuffer-8,a0
  2608.  
  2609. stillfront
  2610.  addq #8,a0
  2611.  cmp.l (a0),d0
  2612.  blt stillfront
  2613.  move.l #endparttab-8,a5
  2614. domoreshift:
  2615.  move.l -8(a5),(a5)
  2616.  move.l -4(a5),4(a5)
  2617.  subq #8,a5
  2618.  cmp.l a0,a5
  2619.  bgt.s domoreshift
  2620.  
  2621.  move.l d0,(a0)
  2622.  move.w d7,4(a0)
  2623.  
  2624.  bra PutinParts
  2625.  
  2626. doneallparts:
  2627.  
  2628.  move.l #PartBuffer,a0
  2629.  
  2630. Partloop:
  2631.  move.l (a0)+,d7
  2632.  blt nomoreparts
  2633.  
  2634.  moveq #0,d0
  2635.  move.w (a0),d0
  2636.  addq #4,a0
  2637.  add.l START_OF_OBJ,d0
  2638.  move.l d0,a1
  2639.  move.w #0,firstpt
  2640.  
  2641. polyloo:
  2642.  
  2643.  tst.w (a1)
  2644.  blt.s nomorepolys
  2645.  movem.l a0/a1/d7,-(a7)
  2646.  bsr doapoly
  2647.  movem.l (a7)+,a0/a1/d7
  2648.  
  2649.  move.w (a1),d0
  2650.  lea 18(a1,d0.w*4),a1
  2651.  
  2652.  bra.s polyloo
  2653. nomorepolys
  2654.  
  2655.  bra Partloop
  2656.  
  2657. nomoreparts:
  2658.  rts
  2659.  
  2660. firstpt: dc.w 0
  2661.  
  2662. PartBuffer:
  2663.  ds.w 4*32
  2664. endparttab:
  2665.  
  2666. polybright: dc.l 0
  2667. PolyAng: dc.w 0
  2668.  
  2669. doapoly:
  2670.  
  2671.  move.w #960,Left
  2672.  move.w #-10,Right
  2673.  
  2674.  move.w (a1)+,d7    ; lines to draw 
  2675.  move.w (a1)+,preholes
  2676.  move.w 12(a1,d7.w*4),pregour
  2677.  move.l #boxonscr,a3
  2678.  
  2679.  movem.l d0-d7/a0-a6,-(a7)
  2680. * Check for any of these points behind...
  2681.  
  2682. checkbeh:
  2683.  move.w (a1),d0
  2684.  
  2685.  cmp.w #32767,(a3,d0.w*4)
  2686.  bne.s .notbeh
  2687.  cmp.w #32767,2(a3,d0.w*4)
  2688.  bne.s .notbeh
  2689.  
  2690.  movem.l (a7)+,d0-d7/a0-a6
  2691.  bra polybehind
  2692.  
  2693. .notbeh:
  2694.  
  2695.  addq #4,a1
  2696.  dbra d7,checkbeh
  2697.  
  2698.  
  2699.  movem.l (a7)+,d0-d7/a0-a6
  2700.  
  2701.  
  2702.  move.w (a1),d0
  2703.  move.w 4(a1),d1
  2704.  move.w 8(a1),d2
  2705.  move.w 2(a3,d0.w*4),d3
  2706.  move.w 2(a3,d1.w*4),d4
  2707.  move.w 2(a3,d2.w*4),d5
  2708.  move.w (a3,d0.w*4),d0
  2709.  move.w (a3,d1.w*4),d1
  2710.  move.w (a3,d2.w*4),d2
  2711.  
  2712.  sub.w d1,d0    ;x1
  2713.  sub.w d1,d2    ;x2
  2714.  sub.w d4,d3    ;y1
  2715.  sub.w d4,d5    ;y2
  2716.  
  2717.  muls d3,d2
  2718.  muls d5,d0
  2719.  sub.l d0,d2
  2720.  ble polybehind
  2721.  
  2722.  move.l #boxrot,a3
  2723.  move.w (a1),d0
  2724.  move.w d0,d1
  2725.  asl.w #2,d0
  2726.  add.w d1,d0
  2727.  move.w 4(a1),d1
  2728.  move.l d1,d2
  2729.  asl.w #2,d1
  2730.  add.w d2,d1
  2731.  move.w 8(a1),d2
  2732.  move.w d2,d3
  2733.  asl.w #2,d2
  2734.  add.w d3,d2
  2735.  move.l 4(a3,d0.w*2),d3
  2736.  move.l 4(a3,d1.w*2),d4
  2737.  move.l 4(a3,d2.w*2),d5
  2738.  move.l (a3,d0.w*2),d0
  2739.  move.l (a3,d1.w*2),d1
  2740.  move.l (a3,d2.w*2),d2
  2741.  
  2742.  sub.l d1,d0    ;x1
  2743.  sub.l d1,d2    ;x2
  2744.  sub.l d4,d3    ;y1
  2745.  sub.l d4,d5    ;y2
  2746.  
  2747.  asr.l #7,d0
  2748.  asr.l #7,d2
  2749.  asr.l #7,d3
  2750.  asr.l #7,d5
  2751.  
  2752.  muls d3,d2
  2753.  muls d5,d0
  2754.  sub.l d0,d2
  2755.  
  2756.  move.l d2,polybright
  2757.  move.l #boxonscr,a3
  2758.  
  2759.  clr.b drawit
  2760.  
  2761.  tst.b Gouraud(pc)
  2762.  bne.s usegour
  2763.  bsr putinlines
  2764.  bra.s dontusegour
  2765. usegour:
  2766.  bsr putingourlines
  2767. dontusegour:
  2768.  
  2769.  move.w #320,linedir
  2770.  move.l FASTBUFFER,a6
  2771.  
  2772.  tst.b drawit(pc)
  2773.  beq polybehind
  2774.  
  2775.  move.l #PolyTopTab,a4
  2776.  move.w Left(pc),d1
  2777.  move.w Right(pc),d7
  2778.  
  2779.  move.w leftclipb,d3
  2780.  move.w rightclipb,d4
  2781.  cmp.w d3,d7
  2782.  ble polybehind
  2783.  cmp.w d4,d1
  2784.  bge polybehind
  2785.  cmp.w d3,d1
  2786.  bge .notop
  2787.  move.w d3,d1
  2788. .notop
  2789.  cmp.w d4,d7
  2790.  ble .nobot
  2791.  move.w d4,d7
  2792. .nobot
  2793.  
  2794.  add.w d1,d1 
  2795.  lea (a4,d1.w*8),a4
  2796.  asr.w #1,d1
  2797.  sub.w d1,d7
  2798.  ble polybehind
  2799.  move.w d1,a2
  2800. ; move.l #objintocop,a2
  2801. ; lea (a2,d1.w*2),a2
  2802.  moveq #0,d0
  2803.  
  2804.  move.l TextureMaps,a0
  2805.  move.w (a1)+,d0
  2806.  ifeq CHEESEY
  2807.  bge.s .notsec
  2808.  and.w #$7fff,d0
  2809.  add.l #65536,a0
  2810. .notsec
  2811.  endc
  2812.  
  2813.  ifne CHEESEY
  2814.  
  2815.  bge.s .notsec
  2816.  and.w #$7fff,d0
  2817.  add.w #%0000010000000000,d0
  2818.  
  2819. .notsec:
  2820.  
  2821.  moveq #0,d1
  2822.  move.w d0,d1   ; 00000XXX 000000YY
  2823.  lsr.w #6,d0
  2824.  add.w d0,d1    ; 00000XXX 000XXXYY
  2825.  and.b #%111,d1 ; 00000XXX 00000XYY
  2826.  add.b d1,d1    ; 00000XXX 0000XYY0
  2827.  lsl.w #4,d1    ; 0XXX0000 XYY00000
  2828.  and.w #%0110000011100000,d1
  2829.  move.w d1,d0
  2830.  
  2831.  endc
  2832.  
  2833.  add.w d0,a0
  2834.  moveq #0,d0
  2835.  moveq #0,d1
  2836.  move.b (a1)+,d1
  2837.  
  2838.  asl.w #5,d1
  2839.  ext.l d1
  2840.  divs #100,d1
  2841.  neg.w d1
  2842.  add.w #31,d1
  2843.  
  2844.  
  2845.  tst.b Holes
  2846.  bne gotholesin
  2847.  tst.b Gouraud(pc)
  2848.  bne gotlurvelyshading
  2849.  
  2850.  move.w ObjAng,d4
  2851.  asr.w #8,d4
  2852.  asr.w #1,d4
  2853.  
  2854.  moveq #0,d2
  2855.  moveq #0,d3
  2856.  move.b (a1)+,d2 
  2857.  move.l PolyAngPtr,a1
  2858.  move.b (a1,d2.w),d2
  2859.  
  2860.  move.b d2,d3
  2861.  add.w d4,d3
  2862.  and.w #$f,d3
  2863.  and.w #$f0,d2
  2864.  add.b d3,d2
  2865.  
  2866.  move.l #PointAndPolyBrights,a1
  2867.  moveq #0,d5
  2868.  move.b (a1,d2.w),d5
  2869.  
  2870.  add.w d5,d1
  2871.  
  2872.  
  2873.  move.l #objscalecols,a1
  2874. ; move.w objbright(pc),d0
  2875. ; add.w d0,d1
  2876.  tst.w d1
  2877.  bge.s toobright
  2878.  move.w #0,d1
  2879. toobright:
  2880.  cmp.w #31,d1
  2881.  blt.s .toodark
  2882.  moveq #31,d1
  2883. .toodark:
  2884.  
  2885.  asl.w #8,d1
  2886. ; move.w (a1,d1.w*2),d1
  2887. ; asl.w #3,d1
  2888.  move.l TexturePal,a1
  2889.  add.l #256*32,a1
  2890.  lea (a1,d1.w),a1
  2891.  tst.b pregour
  2892.  bne predoglare
  2893.  
  2894. dopoly:
  2895.  
  2896.  move.w #0,offtopby
  2897.  move.l a6,a3
  2898.  adda.w a2,a3
  2899.  addq #1,a2
  2900.  move.w (a4),d1
  2901.  cmp.w objclipb,d1
  2902.  bge nodl
  2903.  move.w PolyBotTab-PolyTopTab(a4),d2
  2904.  cmp.w objclipt,d2
  2905.  ble nodl
  2906.  cmp.w objclipt,d1
  2907.  bge.s nocl
  2908.  move.w objclipt,d3
  2909.  sub.w d1,d3
  2910.  move.w d3,offtopby
  2911.  move.w objclipt,d1
  2912. nocl: 
  2913.  move.w d2,d0
  2914.  cmp.w objclipb,d2
  2915.  ble.s nocr
  2916.  move.w objclipb,d2
  2917. nocr:
  2918.  
  2919.     ; d1=top end
  2920.     ; d2=bot end
  2921.     
  2922.  move.l 2+PolyBotTab-PolyTopTab(a4),d3
  2923.  move.l 6+PolyBotTab-PolyTopTab(a4),d4
  2924.     
  2925.  move.l 2(a4),d5
  2926.  move.l 6(a4),d6
  2927.  
  2928.  sub.l d5,d3
  2929.  sub.l d6,d4
  2930.  
  2931. ; asl.w #8,d3
  2932. ; asl.w #8,d4
  2933. ; ext.l d3
  2934. ; ext.l d4
  2935.  
  2936. ; and.b #63,d5
  2937. ; and.b #63,d6
  2938. ; lsl.w #8,d6
  2939. ; move.b d5,d6    ; starting pos
  2940. ; moveq.l #0,d5
  2941. ; move.w d6,d5
  2942.  
  2943.  
  2944.  sub.w d1,d2
  2945.  ble nodl
  2946.  
  2947.  move.w #0,tstdca
  2948.  sub.w d1,d0
  2949.  tst.w offtopby
  2950.  beq.s .notofftop
  2951.  move.l d3,-(a7)
  2952.  move.l d4,-(a7)
  2953.  add.w offtopby,d0
  2954.  ext.l d0    
  2955.  muls.l offtopby-2,d3
  2956.  muls.l offtopby-2,d4
  2957.  divs.l d0,d3
  2958.  divs.l d0,d4
  2959.  
  2960.  add.l d3,d5
  2961.  add.l d4,d6
  2962.  
  2963.  move.l (a7)+,d4
  2964.  move.l (a7)+,d3
  2965. .notofftop: 
  2966.  ext.l d0
  2967.  
  2968.  divs.l d0,d3
  2969.  divs.l d0,d4
  2970.  
  2971.  add.l ontoscr(pc,d1.w*4),a3
  2972.  
  2973.  
  2974.  
  2975.  
  2976.  
  2977.  
  2978.  
  2979.  
  2980.  
  2981.  
  2982.  
  2983.  
  2984.  
  2985.  
  2986.  ifeq CHEESEY
  2987.  move.l #$3fffff,d1
  2988.  endc
  2989.  ifne CHEESEY
  2990.  move.l #$1fffff,d1
  2991.  endc
  2992.  
  2993.  move.l d3,a5
  2994.  moveq #0,d3
  2995.  subq #1,d2
  2996. drawpol:
  2997.  and.l d1,d5
  2998.  and.l d1,d6
  2999.  
  3000.  move.l d6,d0
  3001.  asr.l #8,d0
  3002.  swap d5
  3003.  move.b d5,d0
  3004.  
  3005.  ifeq CHEESEY
  3006.  move.b (a0,d0.w*4),d3
  3007.  endc
  3008.  ifne CHEESEY
  3009.  move.b (a0,d0.w),d3
  3010.  endc
  3011.  
  3012.  swap d5
  3013.  add.l a5,d5
  3014.  add.l d4,d6
  3015.  
  3016.  
  3017.  move.b (a1,d3.w),(a3)
  3018.  adda.w #320,a3
  3019.  dbra d2,drawpol
  3020.  
  3021. ; add.w a5,d3
  3022. ; addx.l d6,d5
  3023. ; dbcs d2,drawpol2
  3024. ; dbcc d2,drawpol
  3025. ; bra.s pastit
  3026. ;drawpol2:
  3027. ; and.w d1,d5
  3028. ; move.b (a0,d5.w*4),d0
  3029. ; move.w (a1,d0.w*2),(a3)
  3030. ; adda.w #320,a3
  3031. ; add.w a5,d3
  3032. ; addx.l d4,d5
  3033. ; dbcs d2,drawpol2
  3034. ; dbcc d2,drawpol
  3035.  
  3036. pastit:
  3037.  
  3038. nodl:
  3039.  adda.w #16,a4
  3040.  dbra d7,dopoly
  3041.  
  3042.  rts
  3043.  
  3044. ontoscr:
  3045. val SET 0
  3046.  REPT 256
  3047.  dc.l val
  3048. val SET val+320
  3049.  ENDR
  3050.  
  3051. predoglare:
  3052.  move.l TexturePal,a1
  3053.  sub.w #512,a1
  3054.  
  3055. DOGLAREPOLY:
  3056.  
  3057.  move.w #0,offtopby
  3058.  move.l a6,a3
  3059.  adda.w a2,a3
  3060.  addq #1,a2
  3061.  move.w (a4),d1
  3062.  cmp.w objclipb,d1
  3063.  bge nodlGL
  3064.  move.w PolyBotTab-PolyTopTab(a4),d2
  3065.  cmp.w objclipt,d2
  3066.  ble nodlGL
  3067.  cmp.w objclipt,d1
  3068.  bge.s noclGL
  3069.  move.w objclipt,d3
  3070.  sub.w d1,d3
  3071.  move.w d3,offtopby
  3072.  move.w objclipt,d1
  3073. noclGL:
  3074.  move.w d2,d0
  3075.  cmp.w objclipb,d2
  3076.  ble.s nocrGL
  3077.  move.w objclipb,d2
  3078. nocrGL:
  3079.  
  3080.     ; d1=top end
  3081.     ; d2=bot end
  3082.     
  3083.  move.l 2+PolyBotTab-PolyTopTab(a4),d3
  3084.  move.l 6+PolyBotTab-PolyTopTab(a4),d4
  3085.     
  3086.  move.l 2(a4),d5
  3087.  move.l 6(a4),d6
  3088.  
  3089.  sub.l d5,d3
  3090.  sub.l d6,d4
  3091.  
  3092. ; asl.w #8,d3
  3093. ; asl.w #8,d4
  3094. ; ext.l d3
  3095. ; ext.l d4
  3096.  
  3097. ; and.b #63,d5
  3098. ; and.b #63,d6
  3099. ; lsl.w #8,d6
  3100. ; move.b d5,d6    ; starting pos
  3101. ; moveq.l #0,d5
  3102. ; move.w d6,d5
  3103.  
  3104.  
  3105.  sub.w d1,d2
  3106.  ble nodlGL
  3107.  
  3108.  move.w #0,tstdca
  3109.  sub.w d1,d0
  3110.  tst.w offtopby
  3111.  beq.s .notofftop
  3112.  move.l d3,-(a7)
  3113.  move.l d4,-(a7)
  3114.  add.w offtopby,d0
  3115.  ext.l d0    
  3116.  muls.l offtopby-2,d3
  3117.  muls.l offtopby-2,d4
  3118.  divs.l d0,d3
  3119.  divs.l d0,d4
  3120.  
  3121.  add.l d3,d5
  3122.  add.l d4,d6
  3123.  
  3124.  move.l (a7)+,d4
  3125.  move.l (a7)+,d3
  3126. .notofftop: 
  3127.  ext.l d0
  3128.  
  3129.  divs.l d0,d3
  3130.  divs.l d0,d4
  3131.  
  3132.  add.l ontoscrGL(pc,d1.w*4),a3
  3133.  
  3134.  ifeq CHEESEY
  3135.  move.l #$3fffff,d1
  3136.  endc
  3137.  ifne CHEESEY
  3138.  move.l #$1fffff,d1
  3139.  endc
  3140.  
  3141.  move.l d3,a5
  3142.  moveq #0,d3
  3143.  subq #1,d2
  3144. drawpolGL:
  3145.  and.l d1,d5
  3146.  and.l d1,d6
  3147.  
  3148.  move.l d6,d0
  3149.  asr.l #8,d0
  3150.  swap d5
  3151.  move.b d5,d0
  3152.  
  3153.  ifeq CHEESEY
  3154.  move.b (a0,d0.w*4),d3
  3155.  endc
  3156.  ifne CHEESEY
  3157.  move.b (a0,d0.w),d3
  3158.  endc
  3159.  beq.s itsblack
  3160.  
  3161.  lsl.w #8,d3
  3162.  add.w d3,d3
  3163.  move.b (a3),d3
  3164.  
  3165.  swap d5
  3166.  add.l a5,d5
  3167.  add.l d4,d6
  3168.  
  3169.  move.b (a1,d3.w),(a3)
  3170.  adda.w #320,a3
  3171.  dbra d2,drawpolGL
  3172.  
  3173. nodlGL:
  3174.  adda.w #16,a4
  3175.  dbra d7,DOGLAREPOLY
  3176.  
  3177.  rts
  3178.  
  3179. itsblack:
  3180.  swap d5
  3181.  add.l a5,d5
  3182.  add.l d4,d6 
  3183.  adda.w #320,a3
  3184.  dbra d2,drawpolGL
  3185.  adda.w #16,a4
  3186.  dbra d7,DOGLAREPOLY
  3187.  
  3188.  rts
  3189.  
  3190. ontoscrGL:
  3191. val SET 0
  3192.  REPT 256
  3193.  dc.l val
  3194. val SET val+320
  3195.  ENDR
  3196.  
  3197. tstdca: dc.l 0
  3198.  dc.w 0
  3199. offtopby: dc.w 0
  3200. LinesPtr: dc.l 0
  3201. PtsPtr: dc.l 0
  3202.  
  3203. gotlurvelyshading:
  3204.  move.l TexturePal,a1
  3205.  add.l #256*32,a1
  3206.  tst.b pregour
  3207. ; beq.s .noshiny
  3208. ; add.l #256*32,a1
  3209. ;.noshiny:
  3210. ; neg.w d1
  3211. ; add.w #14,d1
  3212. ; bge.s toobrightg
  3213. ; move.w #0,d1
  3214. ;toobrightg:
  3215. ; asl.w #8,d1
  3216. ; lea (a1,d1.w*2),a1
  3217.  
  3218. dopolyg:
  3219.  move.l d7,-(a7)
  3220.  move.w #0,offtopby
  3221.  move.l a6,a3
  3222.  adda.w a2,a3
  3223.  addq #1,a2
  3224.  move.w (a4),d1
  3225.  cmp.w objclipb,d1
  3226.  bge nodlg
  3227.  move.w PolyBotTab-PolyTopTab(a4),d2
  3228.  cmp.w objclipt(pc),d2
  3229.  ble nodlg
  3230.  cmp.w objclipt(pc),d1
  3231.  bge.s noclg
  3232.  move.w objclipt,d3
  3233.  sub.w d1,d3
  3234.  move.w d3,offtopby
  3235.  move.w objclipt(pc),d1
  3236. noclg: 
  3237.  move.w d2,d0
  3238.  cmp.w objclipb(pc),d2
  3239.  ble.s nocrg
  3240.  move.w objclipb(pc),d2
  3241. nocrg:
  3242.  
  3243.     ; d1=top end
  3244.     ; d2=bot end
  3245.     
  3246.  move.l 2+PolyBotTab-PolyTopTab(a4),d3
  3247.  move.l 6+PolyBotTab-PolyTopTab(a4),d4
  3248.     
  3249.  move.l 2(a4),d5
  3250.  move.l 6(a4),d6
  3251.  
  3252.  sub.l d5,d3
  3253.  sub.l d6,d4
  3254.  
  3255. ; asl.w #8,d3
  3256. ; asl.w #8,d4
  3257. ; ext.l d3
  3258. ; ext.l d4
  3259.  
  3260. ; and.b #63,d5
  3261. ; and.b #63,d6
  3262. ; lsl.w #8,d6
  3263. ; move.b d5,d6    ; starting pos
  3264. ; moveq.l #0,d5
  3265. ; move.w d6,d5
  3266.  
  3267.  
  3268.  sub.w d1,d2
  3269.  ble nodlg
  3270.  
  3271.  move.w #0,tstdca
  3272.  sub.w d1,d0
  3273.  tst.w offtopby
  3274.  beq.s .notofftop
  3275.  move.l d3,-(a7)
  3276.  move.l d4,-(a7)
  3277.  add.w offtopby,d0
  3278.  ext.l d0
  3279.  muls.l offtopby-2,d3
  3280.  muls.l offtopby-2,d4
  3281.  divs.l d0,d3
  3282.  divs.l d0,d4
  3283.  
  3284.  add.l d3,d5
  3285.  add.l d4,d6
  3286.  
  3287.  move.l (a7)+,d4
  3288.  move.l (a7)+,d3
  3289. .notofftop
  3290.  ext.l d0
  3291.  
  3292.  divs.l d0,d3
  3293.  divs.l d0,d4
  3294.  
  3295.  add.l ontoscrg(pc,d1.w*4),a3
  3296.  move.w 10+PolyBotTab-PolyTopTab(a4),d1
  3297.  move.w 10(a4),d7
  3298.  sub.w d7,d1
  3299.  asl.w #8,d7
  3300.  swap d1
  3301.  clr.w d1
  3302.  divs.l d0,d1
  3303.  
  3304.  asr.l #8,d1
  3305.  
  3306.  move.l d3,a5
  3307.  moveq #0,d3
  3308.  
  3309.  swap d2
  3310.  move.w d1,d2
  3311.  swap d2
  3312.  
  3313.  ifeq CHEESEY
  3314.  move.l #$3fffff,d1
  3315.  endc
  3316.  ifne CHEESEY
  3317.  move.l #$1fffff,d1
  3318.  endc
  3319.  
  3320.  
  3321.  subq.w #1,d2
  3322. drawpolg:
  3323.  and.l d1,d5
  3324.  and.l d1,d6
  3325.  
  3326.  move.l d6,d0
  3327.  asr.l #8,d0
  3328.  swap d5
  3329.  move.b d5,d0
  3330.  
  3331.  move.w d7,d3
  3332.  
  3333.  ifeq CHEESEY
  3334.  move.b (a0,d0.w*4),d3
  3335.  endc
  3336.  ifne CHEESEY
  3337.  move.b (a0,d0.w),d3
  3338.  endc
  3339.  
  3340.  swap d2
  3341.  swap d5
  3342.  add.l a5,d5
  3343.  add.l d4,d6
  3344.  add.w d2,d7
  3345.  swap d2
  3346.  move.b (a1,d3.w),(a3)
  3347.  adda.w #320,a3
  3348.  dbra d2,drawpolg
  3349.  
  3350. nodlg:
  3351.  
  3352.  move.l (a7)+,d7
  3353.  adda.w #16,a4
  3354.  dbra d7,dopolyg
  3355.  
  3356.  rts
  3357.  
  3358. ontoscrg:
  3359. val SET 0
  3360.  REPT 256
  3361.  dc.l val
  3362. val SET val+320
  3363.  ENDR
  3364.  
  3365.  
  3366.  
  3367.  
  3368. gotholesin:
  3369.  move.w ObjAng,d4
  3370.  asr.w #8,d4
  3371.  asr.w #1,d4
  3372.  
  3373.  moveq #0,d2
  3374.  moveq #0,d3
  3375.  move.b (a1)+,d2
  3376.  
  3377.  move.l PolyAngPtr,a1
  3378.  move.b (a1,d2.w),d2
  3379.  
  3380.  move.b d2,d3
  3381.  lsr.b #4,d3    ;d3=vertical pos
  3382.  add.b d4,d2
  3383.  and.w #$f,d2
  3384.  
  3385.  move.l #ANGLEBRIGHTS,a1
  3386.  moveq #0,d4
  3387.  moveq #0,d5
  3388.  move.b (a1,d2.w),d4    ;top
  3389.  move.b 16(a1,d2.w),d5  ;bottom
  3390.  
  3391.  sub.w d4,d5
  3392.  muls d3,d5
  3393.  divs #14,d5
  3394.  add.w d4,d5
  3395.  
  3396.  add.w d5,d1
  3397.  
  3398.  
  3399.  move.l #objscalecols,a1
  3400.  
  3401. ; move.w objbright(pc),d0
  3402. ; add.w d0,d1
  3403.  tst.w d1
  3404.  bge.s toobrighth
  3405.  move.w #0,d1
  3406. toobrighth:
  3407.  cmp.w #31,d1
  3408.  ble.s toodimh
  3409.  move.w #31,d1
  3410. toodimh:
  3411.  
  3412.  asl.w #8,d1
  3413.  
  3414. ; move.w (a1,d1.w*2),d1
  3415. ; asl.w #3,d1
  3416.  move.l TexturePal,a1
  3417.  add.l #256*32,a1
  3418.  add.w d1,a1
  3419.  tst.b pregour
  3420. ; beq.s .noshiny
  3421. ; add.l #256*32,a1
  3422. ;.noshiny:
  3423.  
  3424. dopolyh:
  3425.  move.w #0,offtopby
  3426.  move.l a6,a3
  3427.  adda.w a2,a3
  3428.  addq #1,a2
  3429.  move.w (a4),d1
  3430.  cmp.w objclipb,d1
  3431.  bge nodlh
  3432.  move.w PolyBotTab-PolyTopTab(a4),d2
  3433.  cmp.w objclipt,d2
  3434.  ble nodlh
  3435.  cmp.w objclipt,d1
  3436.  bge.s noclh
  3437.  move.w objclipt,d3
  3438.  sub.w d1,d3
  3439.  move.w d3,offtopby
  3440.  move.w objclipt,d1
  3441. noclh: 
  3442.  move.w d2,d0
  3443.  cmp.w objclipb,d2
  3444.  ble.s nocrh
  3445.  move.w objclipb,d2
  3446. nocrh:
  3447.  
  3448.     ; d1=top end
  3449.     ; d2=bot end
  3450.     
  3451.  move.l 2+PolyBotTab-PolyTopTab(a4),d3
  3452.  move.l 6+PolyBotTab-PolyTopTab(a4),d4
  3453.     
  3454.  move.l 2(a4),d5
  3455.  move.l 6(a4),d6
  3456.  
  3457.  sub.l d5,d3
  3458.  sub.l d6,d4
  3459.  
  3460. ; asl.w #8,d3
  3461. ; asl.w #8,d4
  3462. ; ext.l d3
  3463. ; ext.l d4
  3464.  
  3465. ; and.b #63,d5
  3466. ; and.b #63,d6
  3467. ; lsl.w #8,d6
  3468. ; move.b d5,d6    ; starting pos
  3469. ; moveq #-1,d5
  3470. ; lsr.l #1,d5
  3471. ; move.w d6,d5
  3472.  
  3473.  
  3474.  sub.w d1,d2
  3475.  ble nodlh
  3476.  
  3477.  move.w #0,tstdca
  3478.  sub.w d1,d0
  3479.  tst.w offtopby
  3480.  beq.s .notofftop
  3481.  move.l d3,-(a7)
  3482.  move.l d4,-(a7)
  3483.  add.w offtopby,d0
  3484.  ext.l d0
  3485.  muls.l offtopby-2,d3
  3486.  muls.l offtopby-2,d4
  3487.  divs.l d0,d3
  3488.  divs.l d0,d4
  3489.  
  3490.  add.l d3,d5
  3491.  add.l d4,d6
  3492.  
  3493.  move.l (a7)+,d4
  3494.  move.l (a7)+,d3
  3495. .notofftop:
  3496.  ext.l d0
  3497.  
  3498.  divs.l d0,d3
  3499.  divs.l d0,d4
  3500.  
  3501.  add.l ontoscrh(pc,d1.w*4),a3
  3502.  ifeq CHEESEY
  3503.  move.l #$3fffff,d1
  3504.  endc
  3505.  ifne CHEESEY
  3506.  move.l #$1fffff,d1
  3507.  endc
  3508.  
  3509.  move.l d3,a5
  3510.  moveq #0,d3
  3511.  subq #1,d2
  3512. drawpolh:
  3513.  and.l d1,d5
  3514.  and.l d1,d6
  3515.  
  3516.  move.l d6,d0
  3517.  asr.l #8,d0
  3518.  swap d5
  3519.  move.b d5,d0
  3520.  
  3521.  swap d5
  3522.  add.l a5,d5
  3523.  add.l d4,d6
  3524.  
  3525.  ifeq CHEESEY
  3526.  move.b (a0,d0.w*4),d3
  3527.  endc
  3528.  ifne CHEESEY
  3529.  move.b (a0,d0.w),d3
  3530.  endc
  3531.  
  3532.  beq.s .dontplot
  3533.  move.b (a1,d3.w),(a3)
  3534. .dontplot
  3535.  adda.w #320,a3
  3536.  dbra d2,drawpolh
  3537.  
  3538. pastith:
  3539.  
  3540. nodlh:
  3541.  adda.w #16,a4
  3542.  dbra d7,dopolyh
  3543.  
  3544.  rts
  3545.  
  3546. ontoscrh:
  3547. val SET 0
  3548.  REPT 256
  3549.  dc.l val
  3550. val SET val+320
  3551.  ENDR
  3552.  
  3553.  EVEN
  3554. pregour:
  3555.  dc.b 0
  3556. Gouraud:
  3557.  dc.b 0
  3558. preholes:
  3559.  dc.b 0
  3560. Holes: 
  3561.  dc.b 0
  3562.  
  3563. putinlines:
  3564.  
  3565.  move.w (a1),d0
  3566.  move.w 4(a1),d1
  3567.  
  3568.  move.w (a3,d0.w*4),d2
  3569.  move.w 2(a3,d0.w*4),d3
  3570.  move.w (a3,d1.w*4),d4
  3571.  move.w 2(a3,d1.w*4),d5
  3572.  
  3573. ; d2=x1 d3=y1 d4=x2 d5=y2
  3574.  
  3575.  cmp.w d2,d4
  3576.  beq thislineflat
  3577.  bgt thislineontop
  3578.  move.l #PolyBotTab,a4
  3579.  exg d2,d4
  3580.  exg d3,d5
  3581.  
  3582.  cmp.w rightclipb,d2
  3583.  bge thislineflat
  3584.  cmp.w leftclipb,d4
  3585.  ble thislineflat
  3586.  move.w rightclipb,d6
  3587.  sub.w d4,d6
  3588.  ble.s .clipr
  3589.  move.w #0,-(a7)
  3590.  cmp.w Right(pc),d4
  3591.  ble.s .nonewbot
  3592.  move.w d4,Right
  3593.  bra.s .nonewbot
  3594.  
  3595. .clipr
  3596.  move.w d6,-(a7)
  3597.  move.w rightclipb,Right
  3598.  sub.w #1,Right
  3599. .nonewbot:
  3600.  
  3601.  move.w #0,offleftby
  3602.  move.w d2,d6
  3603.  cmp.w leftclipb,d6
  3604.  bge .okt
  3605.  move.w leftclipb,d6
  3606.  sub.w d2,d6
  3607.  move.w d6,offleftby
  3608.  add.w d2,d6
  3609. .okt:
  3610.  
  3611.  st drawit
  3612.  add.w d6,d6
  3613.  lea (a4,d6.w*8),a4
  3614.  asr.w #1,d6
  3615.  cmp.w Left(pc),d6
  3616.  bge.s .nonewtop
  3617.  move.w d6,Left
  3618. .nonewtop
  3619.  
  3620.  sub.w d3,d5    ; dy
  3621.  swap d3
  3622.  clr.w d3    ; d2=xpos
  3623.  sub.w d2,d4    ; dx > 0
  3624.  ext.l d4
  3625.  swap d5
  3626.  clr.w d5
  3627.  divs.l d4,d5
  3628.  moveq #0,d2
  3629.  move.b 2(a1),d2
  3630.  ifne CHEESEY
  3631.  asr.w #1,d2
  3632.  endc
  3633.  
  3634.  moveq #0,d6
  3635.  move.b 6(a1),d6
  3636.  ifne CHEESEY
  3637.  asr.w #1,d6
  3638.  endc
  3639.  sub.w d6,d2
  3640.  swap d2
  3641.  swap d6
  3642.  clr.w d2
  3643.  clr.w d6    ; d6=xbitpos
  3644.  divs.l d4,d2
  3645.  move.l d5,a5    ; a5=dy constant
  3646.  move.l d2,a6    ; a6=xbitconst
  3647.  
  3648.  moveq #0,d5
  3649.  move.b 3(a1),d5
  3650.  ifne CHEESEY
  3651.  asr.w #1,d5
  3652.  endc
  3653.  moveq #0,d2
  3654.  move.b 7(a1),d2
  3655.  ifne CHEESEY
  3656.  asr.w #1,d2
  3657.  endc
  3658.  sub.w d2,d5
  3659.  swap d2
  3660.  swap d5
  3661.  clr.w d2    ; d3=ybitpos
  3662.  clr.w d5
  3663.  divs.l d4,d5
  3664.  
  3665.  add.w (a7)+,d4
  3666.  sub.w offleftby(pc),d4
  3667.  blt thislineflat
  3668.  
  3669.  tst.w offleftby(pc)
  3670.  beq.s .noneoffleft
  3671.  move.w d4,-(a7)
  3672.  move.w offleftby(pc),d4
  3673.  dbra d4,.calcnodraw
  3674.  bra .nodrawoffleft
  3675. .calcnodraw
  3676.  
  3677.  add.l a5,d3
  3678.  add.l a6,d6
  3679.  add.l d5,d2
  3680.  dbra d4,.calcnodraw
  3681. .nodrawoffleft:
  3682.  move.w (a7)+,d4
  3683. .noneoffleft:
  3684.  
  3685. .putinline:
  3686.  
  3687.  swap d3
  3688.  move.w d3,(a4)+
  3689.  swap d3
  3690.  move.l d6,(a4)+
  3691.  move.l d2,(a4)+
  3692.  addq #6,a4
  3693.  
  3694.  add.l a5,d3
  3695.  add.l a6,d6
  3696.  add.l d5,d2
  3697.  
  3698.  dbra d4,.putinline
  3699.  
  3700.  bra thislineflat
  3701.  
  3702. thislineontop:
  3703.  move.l #PolyTopTab,a4
  3704.  
  3705.  cmp.w rightclipb,d2
  3706.  bge thislineflat
  3707.  cmp.w leftclipb,d4
  3708.  ble thislineflat
  3709.  move.w rightclipb,d6
  3710.  sub.w d4,d6
  3711.  ble.s .clipr
  3712.  move.w #0,-(a7)
  3713.  cmp.w Right(pc),d4
  3714.  ble.s .nonewbot
  3715.  move.w d4,Right
  3716.  bra.s .nonewbot
  3717.  
  3718. .clipr
  3719.  move.w d6,-(a7)
  3720.  move.w rightclipb,Right
  3721.  sub.w #1,Right
  3722. .nonewbot:
  3723.  
  3724.  move.w #0,offleftby
  3725.  move.w d2,d6
  3726.  cmp.w leftclipb,d6
  3727.  bge .okt
  3728.  move.w leftclipb,d6
  3729.  sub.w d2,d6
  3730.  move.w d6,offleftby
  3731.  add.w d2,d6
  3732. .okt:
  3733.  
  3734.  st drawit
  3735.  add.w d6,d6
  3736.  lea (a4,d6.w*8),a4
  3737.  asr.w #1,d6
  3738.  cmp.w Left(pc),d6
  3739.  bge.s .nonewtop
  3740.  move.w d6,Left
  3741. .nonewtop
  3742.  
  3743.  sub.w d3,d5    ; dy
  3744.  swap d3
  3745.  clr.w d3    ; d2=xpos
  3746.  sub.w d2,d4    ; dx > 0
  3747.  ext.l d4
  3748.  swap d5
  3749.  clr.w d5
  3750.  divs.l d4,d5
  3751.  moveq #0,d2
  3752.  move.b 6(a1),d2
  3753.  ifne CHEESEY
  3754.  asr.w #1,d2
  3755.  endc
  3756.  moveq #0,d6
  3757.  move.b 2(a1),d6
  3758.  ifne CHEESEY
  3759.  asr.w #1,d6
  3760.  endc
  3761.  sub.w d6,d2
  3762.  swap d2
  3763.  swap d6
  3764.  clr.w d2
  3765.  clr.w d6    ; d6=xbitpos
  3766.  divs.l d4,d2
  3767.  move.l d5,a5    ; a5=dy constant
  3768.  move.l d2,a6    ; a6=xbitconst
  3769.  
  3770.  moveq #0,d5
  3771.  move.b 7(a1),d5
  3772.  ifne CHEESEY
  3773.  asr.w #1,d5
  3774.  endc
  3775.  moveq #0,d2
  3776.  move.b 3(a1),d2
  3777.  ifne CHEESEY
  3778.  asr.w #1,d2
  3779.  endc
  3780.  sub.w d2,d5
  3781.  swap d2
  3782.  swap d5
  3783.  clr.w d2    ; d3=ybitpos
  3784.  clr.w d5
  3785.  divs.l d4,d5
  3786.  
  3787.  add.w (a7)+,d4
  3788.  sub.w offleftby(pc),d4
  3789.  blt.s thislineflat
  3790.  
  3791.  tst.w offleftby(pc)
  3792.  beq.s .noneoffleft
  3793.  move.w d4,-(a7)
  3794.  move.w offleftby(pc),d4
  3795.  dbra d4,.calcnodraw
  3796.  bra .nodrawoffleft
  3797. .calcnodraw
  3798.  
  3799.  add.l a5,d3
  3800.  add.l a6,d6
  3801.  add.l d5,d2
  3802.  dbra d4,.calcnodraw
  3803. .nodrawoffleft:
  3804.  move.w (a7)+,d4
  3805. .noneoffleft:
  3806.  
  3807.  
  3808. .putinline:
  3809.  
  3810.  swap d3
  3811.  move.w d3,(a4)+
  3812.  swap d3
  3813.  move.l d6,(a4)+
  3814.  move.l d2,(a4)+
  3815.  addq #6,a4
  3816.  
  3817.  add.l a5,d3
  3818.  add.l a6,d6
  3819.  add.l d5,d2
  3820.  
  3821.  dbra d4,.putinline
  3822.  
  3823. thislineflat:
  3824.  addq #4,a1
  3825.  dbra d7,putinlines
  3826.  addq #4,a1
  3827.  rts
  3828.  
  3829. putingourlines:
  3830.  
  3831.  move.l #boxbrights,a2
  3832.  
  3833. piglloop:
  3834.  
  3835.  move.w (a1),d0
  3836.  move.w 4(a1),d1
  3837.  
  3838.  move.w (a3,d0.w*4),d2
  3839.  move.w 2(a3,d0.w*4),d3
  3840.  move.w (a3,d1.w*4),d4
  3841.  move.w 2(a3,d1.w*4),d5
  3842.  
  3843.  
  3844.  
  3845.  cmp.w d2,d4
  3846.  beq thislineflatgour
  3847.  bgt thislineontopgour
  3848.  move.l #PolyBotTab,a4
  3849.  exg d2,d4
  3850.  exg d3,d5
  3851.  
  3852.  cmp.w rightclipb,d2
  3853.  bge thislineflatgour
  3854.  cmp.w leftclipb,d4
  3855.  ble thislineflatgour
  3856.  move.w rightclipb,d6
  3857.  sub.w d4,d6
  3858.  ble.s .clipr
  3859.  move.w #0,-(a7)
  3860.  cmp.w Right(pc),d4
  3861.  ble.s .nonewbot
  3862.  move.w d4,Right
  3863.  bra.s .nonewbot
  3864.  
  3865. .clipr
  3866.  move.w d6,-(a7)
  3867.  move.w rightclipb,Right
  3868.  sub.w #1,Right
  3869. .nonewbot:
  3870.  
  3871.  move.w #0,offleftby
  3872.  move.w d2,d6
  3873.  cmp.w leftclipb,d6
  3874.  bge .okt
  3875.  move.w leftclipb,d6
  3876.  sub.w d2,d6
  3877.  move.w d6,offleftby
  3878.  add.w d2,d6
  3879. .okt:
  3880.  
  3881.  st drawit
  3882.  add.w d6,d6
  3883.  lea (a4,d6.w*8),a4
  3884.  asr.w #1,d6
  3885.  cmp.w Left(pc),d6
  3886.  bge.s .nonewtop
  3887.  move.w d6,Left
  3888. .nonewtop
  3889.  
  3890.  sub.w d3,d5    ; dy
  3891.  swap d3
  3892.  clr.w d3    ; d2=xpos
  3893.  sub.w d2,d4    ; dx > 0
  3894.  ext.l d4
  3895.  swap d5
  3896.  clr.w d5
  3897.  divs.l d4,d5
  3898.  moveq #0,d2
  3899.  move.b 2(a1),d2
  3900.  ifne CHEESEY
  3901.  asr.w #1,d2
  3902.  endc
  3903.  moveq #0,d6
  3904.  move.b 6(a1),d6
  3905.  ifne CHEESEY
  3906.  asr.w #1,d6
  3907.  endc
  3908.  sub.w d6,d2
  3909.  swap d2
  3910.  swap d6
  3911.  clr.w d2
  3912.  clr.w d6    ; d6=xbitpos
  3913.  divs.l d4,d2
  3914.  move.l d5,a5    ; a5=dy constant
  3915.  move.l d2,a6    ; a6=xbitconst
  3916.  
  3917.  moveq #0,d5
  3918.  move.b 3(a1),d5
  3919.  ifne CHEESEY
  3920.  asr.w #1,d5
  3921.  endc
  3922.  moveq #0,d2
  3923.  move.b 7(a1),d2
  3924.  ifne CHEESEY
  3925.  asr.w #1,d2
  3926.  endc
  3927.  
  3928.  sub.w d2,d5
  3929.  swap d2
  3930.  swap d5
  3931.  clr.w d2    ; d3=ybitpos
  3932.  clr.w d5
  3933.  divs.l d4,d5
  3934.  
  3935.  move.w (a2,d1.w*2),d1
  3936.  move.w (a2,d0.w*2),d0
  3937.  sub.w d1,d0
  3938.  swap d0
  3939.  swap d1
  3940.  clr.w d0
  3941.  clr.w d1
  3942.  divs.l d4,d0
  3943.  
  3944.  add.w (a7)+,d4
  3945.  sub.w offleftby(pc),d4
  3946.  blt thislineflatgour
  3947.  
  3948.  tst.w offleftby(pc)
  3949.  beq.s .noneoffleft
  3950.  move.w d4,-(a7)
  3951.  move.w offleftby(pc),d4
  3952.  dbra d4,.calcnodraw
  3953.  bra .nodrawoffleft
  3954. .calcnodraw
  3955.  add.l d0,d1
  3956.  add.l a5,d3
  3957.  add.l a6,d6
  3958.  add.l d5,d2
  3959.  dbra d4,.calcnodraw
  3960. .nodrawoffleft:
  3961.  move.w (a7)+,d4
  3962. .noneoffleft:
  3963.  
  3964. .putinline:
  3965.  
  3966.  swap d3
  3967.  move.w d3,(a4)+
  3968.  swap d3
  3969.  move.l d6,(a4)+
  3970.  move.l d2,(a4)+
  3971.  swap d1
  3972.  move.w d1,(a4)
  3973.  addq #6,a4
  3974.  swap d1
  3975.  
  3976.  add.l d0,d1
  3977.  add.l a5,d3
  3978.  add.l a6,d6
  3979.  add.l d5,d2
  3980.  
  3981.  dbra d4,.putinline
  3982.  
  3983.  bra thislineflatgour
  3984.  
  3985. thislineontopgour:
  3986.  move.l #PolyTopTab,a4
  3987.  
  3988.  cmp.w rightclipb,d2
  3989.  bge thislineflatgour
  3990.  cmp.w leftclipb,d4
  3991.  ble thislineflatgour
  3992.  move.w rightclipb,d6
  3993.  sub.w d4,d6
  3994.  ble.s .clipr
  3995.  move.w #0,-(a7)
  3996.  cmp.w Right(pc),d4
  3997.  ble.s .nonewbot
  3998.  move.w d4,Right
  3999.  bra.s .nonewbot
  4000.  
  4001. .clipr
  4002.  move.w d6,-(a7)
  4003.  move.w rightclipb,Right
  4004.  sub.w #1,Right
  4005. .nonewbot:
  4006.  
  4007.  move.w #0,offleftby
  4008.  move.w d2,d6
  4009.  cmp.w leftclipb,d6
  4010.  bge .okt
  4011.  move.w leftclipb,d6
  4012.  sub.w d2,d6
  4013.  move.w d6,offleftby
  4014.  add.w d2,d6
  4015. .okt:
  4016.  
  4017.  st drawit
  4018.  add.w d6,d6
  4019.  lea (a4,d6.w*8),a4
  4020.  asr.w #1,d6
  4021.  cmp.w Left(pc),d6
  4022.  bge.s .nonewtop
  4023.  move.w d6,Left
  4024. .nonewtop
  4025.  
  4026.  sub.w d3,d5    ; dy
  4027.  swap d3
  4028.  clr.w d3    ; d2=xpos
  4029.  sub.w d2,d4    ; dx > 0
  4030.  ext.l d4
  4031.  swap d5
  4032.  clr.w d5
  4033.  divs.l d4,d5
  4034.  moveq #0,d2
  4035.  move.b 6(a1),d2
  4036.  ifne CHEESEY
  4037.  asr.w #1,d2
  4038.  endc
  4039.  moveq #0,d6
  4040.  move.b 2(a1),d6
  4041.  ifne CHEESEY
  4042.  asr.w #1,d6
  4043.  endc
  4044.  sub.w d6,d2
  4045.  swap d2
  4046.  swap d6
  4047.  clr.w d2
  4048.  clr.w d6    ; d6=xbitpos
  4049.  divs.l d4,d2
  4050.  move.l d5,a5    ; a5=dy constant
  4051.  move.l d2,a6    ; a6=xbitconst
  4052.  
  4053.  moveq #0,d5
  4054.  move.b 7(a1),d5
  4055.  ifne CHEESEY
  4056.  asr.w #1,d5
  4057.  endc
  4058.  moveq #0,d2
  4059.  move.b 3(a1),d2
  4060.  ifne CHEESEY
  4061.  asr.w #1,d2
  4062.  endc
  4063.  
  4064.  sub.w d2,d5
  4065.  swap d2
  4066.  swap d5
  4067.  clr.w d2    ; d3=ybitpos
  4068.  clr.w d5
  4069.  divs.l d4,d5
  4070.  
  4071.  move.w (a2,d1.w*2),d1
  4072.  move.w (a2,d0.w*2),d0
  4073.  sub.w d0,d1
  4074.  swap d0
  4075.  swap d1
  4076.  clr.w d0
  4077.  clr.w d1
  4078.  divs.l d4,d1
  4079.  
  4080.  add.w (a7)+,d4
  4081.  sub.w offleftby(pc),d4
  4082.  blt.s thislineflatgour
  4083.  
  4084.  tst.w offleftby(pc)
  4085.  beq.s .noneoffleft
  4086.  move.w d4,-(a7)
  4087.  move.w offleftby(pc),d4
  4088.  dbra d4,.calcnodraw
  4089.  bra .nodrawoffleft
  4090. .calcnodraw
  4091.  add.l d1,d0
  4092.  add.l a5,d3
  4093.  add.l a6,d6
  4094.  add.l d5,d2
  4095.  dbra d4,.calcnodraw
  4096. .nodrawoffleft:
  4097.  move.w (a7)+,d4
  4098. .noneoffleft:
  4099.  
  4100.  
  4101. .putinline:
  4102.  
  4103.  swap d3
  4104.  move.w d3,(a4)+
  4105.  swap d3
  4106.  move.l d6,(a4)+
  4107.  move.l d2,(a4)+
  4108.  swap d0
  4109.  move.w d0,(a4)
  4110.  addq #6,a4
  4111.  swap d0
  4112.  
  4113.  add.l d1,d0
  4114.  add.l a5,d3
  4115.  add.l a6,d6
  4116.  add.l d5,d2
  4117.  
  4118.  dbra d4,.putinline
  4119.  
  4120. thislineflatgour:
  4121.  addq #4,a1
  4122.  dbra d7,piglloop
  4123.  addq #4,a1
  4124.  rts
  4125.  
  4126. offleftby: dc.w 0
  4127. Left: dc.w 0
  4128. Right: dc.w 0
  4129.  
  4130. PointAndPolyBrights:
  4131.  ds.l 4*16
  4132.  
  4133.  
  4134. POINTER_TO_POINTERS: dc.l 0
  4135. START_OF_OBJ: dc.l 0
  4136. num_points: dc.w 0
  4137.  
  4138. POLYOBJECTS:
  4139.  ds.l 40
  4140. ; dc.l Spider_des
  4141. ; dc.l Medi_des
  4142. ; dc.l Exit_des
  4143. ; dc.l Crate_des
  4144. ; dc.l Terminal_des
  4145. ; dc.l Blue_des
  4146. ; dc.l Green_des
  4147. ; dc.l Red_des
  4148. ; dc.l Yellow_des
  4149. ; dc.l Gas_des
  4150. ; dc.l Torch_des
  4151.  
  4152. Spider_des:
  4153. ; incbin "ab3:vectobj/robot"
  4154.  incbin "ab3:vectobj/walllamp"
  4155.  
  4156. ;Medi_des:
  4157. ; incbin "ab3:vectobj/testgrill"
  4158. ;Exit_des:
  4159. ; incbin "ab3:vectobj/exitsign
  4160. ;Crate_des:
  4161. ; incbin "ab3:vectobj/droid"
  4162. ;Terminal_des:
  4163. ; incbin "ab3:includes/terminal.vec"
  4164. ;Blue_des:
  4165. ; incbin "ab3:vectobj/blueind"
  4166. ;Green_des:
  4167. ; incbin "ab3:vectobj/Greenind"
  4168. ;Red_des:
  4169. ; incbin "ab3:vectobj/Redind"
  4170. ;Yellow_des:
  4171. ; incbin "ab3:vectobj/yellowind"
  4172. ;Gas_des:
  4173. ; incbin "ab3:vectobj/gaspipe"
  4174. ;Torch_des:
  4175. ; incbin "ab3:vectobj/torch"
  4176.  
  4177. boxonscr:
  4178.  ds.l 250*2
  4179. boxrot: ds.l 3*250
  4180.  
  4181. boxbrights: 
  4182.     ds.w 250
  4183.  
  4184. boxang: dc.w 0 
  4185.  
  4186.  ds.w 320*4
  4187. PolyBotTab: ds.w 320*8
  4188.  ds.w 320*4
  4189. PolyTopTab: ds.w 320*8
  4190.  ds.w 320*4
  4191.  
  4192. offset:
  4193.  dc.w 0
  4194. ;timer:
  4195.  dc.w 0
  4196.  
  4197. Objects:
  4198. ; Lookup table for OBJECT GRAPHIC TYPE
  4199. ; in object data (offset 8)
  4200. ;0
  4201.  dc.l ALIEN_WAD,ALIEN_PTR,ALIEN_FRAMES,ALIEN_PAL
  4202. ;1
  4203.  dc.l PICKUPS_WAD,PICKUPS_PTR,PICKUPS_FRAMES,PICKUPS_PAL
  4204. ;2
  4205.  dc.l BIGBULLET_WAD,BIGBULLET_PTR,BIGBULLET_FRAMES,BIGBULLET_PAL
  4206. ;3
  4207.  dc.l UGLYMONSTER_WAD,UGLYMONSTER_PTR,UGLYMONSTER_FRAMES,UGLYMONSTER_PAL
  4208. ;4
  4209.  dc.l FLYINGMONSTER_WAD,FLYINGMONSTER_PTR,FLYINGMONSTER_FRAMES,FLYINGMONSTER_PAL
  4210. ;5
  4211.  dc.l KEYS_WAD,KEYS_PTR,KEYS_FRAMES,KEYS_PAL
  4212. ;6
  4213.  dc.l ROCKETS_WAD,ROCKETS_PTR,ROCKETS_FRAMES,ROCKETS_PAL
  4214. ;7
  4215.  dc.l BARREL_WAD,BARREL_PTR,BARREL_FRAMES,BARREL_PAL
  4216. ;8
  4217.  dc.l BIGBULLET_WAD,BIGBULLET_PTR,EXPLOSION_FRAMES,EXPLOSION_PAL
  4218. ;9
  4219.  dc.l GUNS_WAD,GUNS_PTR,GUNS_FRAMES,GUNS_PAL
  4220. ;10:
  4221.  dc.l MARINE_WAD,MARINE_PTR,MARINE_FRAMES,MARINE_PAL
  4222. ;11:
  4223.  dc.l BIGALIEN_WAD,BIGALIEN_PTR,BIGALIEN_FRAMES,BIGALIEN_PAL
  4224. ;12:
  4225.  dc.l 0,0,LAMPS_FRAMES,LAMPS_PAL
  4226. ;13:
  4227.  dc.l 0,0,WORM_FRAMES,WORM_PAL
  4228. ;14:
  4229.  dc.l 0,0,BIGCLAWS_FRAMES,BIGCLAWS_PAL
  4230. ;15:
  4231.  dc.l 0,0,TREE_FRAMES,TREE_PAL
  4232. ;16:
  4233.  dc.l 0,0,TOUGHMARINE_FRAMES,TOUGHMARINE_PAL
  4234. ;17:
  4235.  dc.l 0,0,FLAMEMARINE_FRAMES,FLAMEMARINE_PAL
  4236. ;18:
  4237.  dc.l 0,0,GLARE_FRAMES,0
  4238.  ds.l 4*20
  4239.  
  4240. GLARE_FRAMES:
  4241.  dc.w 0,0
  4242.  dc.w 32*4,0
  4243.  dc.w 32*4*2,0
  4244.  dc.w 32*4*3,0
  4245.  
  4246.  dc.w 0,32
  4247.  dc.w 32*4,32
  4248.  dc.w 32*4*2,32
  4249.  dc.w 32*4*3,32
  4250.  
  4251. ALIEN_WAD:
  4252. ; incbin "ALIEN2.wad"
  4253. ALIEN_PTR:
  4254. ; incbin "ALIEN2.ptr"
  4255. ALIEN_FRAMES:
  4256. ; walking=0-3
  4257.  dc.w 0,0
  4258.  dc.w 64*4,0 
  4259.  dc.w 64*4*2,0
  4260.  dc.w 64*4*3,0
  4261.  dc.w 64*4*4,0
  4262.  dc.w 64*4*5,0
  4263.  dc.w 64*4*6,0
  4264.  dc.w 64*4*7,0
  4265.  dc.w 64*4*8,0
  4266.  dc.w 64*4*9,0
  4267.  dc.w 64*4*10,0
  4268.  dc.w 64*4*11,0
  4269.  dc.w 64*4*12,0
  4270.  dc.w 64*4*13,0
  4271.  dc.w 64*4*14,0
  4272.  dc.w 64*4*15,0
  4273. ;Exploding=16-31
  4274.  dc.w 4*(64*16),0
  4275.  dc.w 4*(64*16+16),0
  4276.  dc.w 4*(64*16+32),0
  4277.  dc.w 4*(64*16+48),0
  4278.  
  4279.  dc.w 4*(64*16),16
  4280.  dc.w 4*(64*16+16),16
  4281.  dc.w 4*(64*16+32),16
  4282.  dc.w 4*(64*16+48),16
  4283.  
  4284.  dc.w 4*(64*16),32
  4285.  dc.w 4*(64*16+16),32
  4286.  dc.w 4*(64*16+32),32
  4287.  dc.w 4*(64*16+48),32
  4288.  
  4289.  dc.w 4*(64*16),48
  4290.  dc.w 4*(64*16+16),48
  4291.  dc.w 4*(64*16+32),48
  4292.  dc.w 4*(64*16+48),48
  4293. ;dying=32-33
  4294.  dc.w 64*4*17,0
  4295.  dc.w 64*4*18,0
  4296.  
  4297.  
  4298. ALIEN_PAL:
  4299. ; incbin "alien2.256pal"
  4300.  
  4301. PICKUPS_WAD:
  4302. ; incbin "Pickups.wad"
  4303. PICKUPS_PTR:
  4304. ; incbin "PICKUPS.ptr"
  4305. PICKUPS_FRAMES:
  4306. ; medikit=0
  4307.  dc.w 0,0
  4308. ; big gun=1
  4309.  dc.w 0,32
  4310. ; bullet=2
  4311.  dc.w 64*4,32
  4312. ; Ammo=3
  4313.  dc.w 32*4,0 
  4314. ;battery=4
  4315.  dc.w 64*4,0
  4316. ;Rockets=5
  4317.  dc.w 192*4,0
  4318. ;gunpop=6-16
  4319.  dc.w 128*4,0
  4320.  dc.w (128+16)*4,0
  4321.  dc.w (128+32)*4,0
  4322.  dc.w (128+48)*4,0
  4323.  dc.w 128*4,16
  4324.  dc.w (128+16)*4,16
  4325.  dc.w (128+32)*4,16
  4326.  dc.w (128+48)*4,16
  4327.  dc.w 128*4,32
  4328.  dc.w (128+16)*4,32
  4329.  dc.w (128+32)*4,32
  4330.  dc.w (64+16)*4,32
  4331.  dc.w (64*4),48
  4332.  dc.w (64+16)*4,48
  4333.  
  4334. ; RocketLauncher=20
  4335.  dc.w (64+32)*4,0
  4336.  
  4337. ;grenade = 21-24
  4338.  dc.w 64*4,32
  4339.  dc.w (64+16)*4,32
  4340.  dc.w (64+16)*4,48
  4341.  dc.w 64*4,48
  4342.  
  4343. ; shotgun = 25
  4344.  dc.w 128*4,32
  4345.  
  4346. ; grenade launcher =26
  4347.  dc.w 256*4,0
  4348.  
  4349. ; shotgun shells*4=27
  4350.  dc.w 64*3*4,32
  4351. ; shotgun shells*20=28
  4352.  dc.w (64*3+32)*4,0
  4353. ; grenade clip=29
  4354.  dc.w (64*3+32)*4,32
  4355.  
  4356.  
  4357. PICKUPS_PAL:
  4358. ; incbin "PICKUPS.256pal"
  4359.  
  4360. BIGBULLET_WAD:
  4361. ; incbin "bigbullet.wad"
  4362. BIGBULLET_PTR:
  4363. ; incbin "bigbullet.ptr"
  4364. BIGBULLET_FRAMES:
  4365.  dc.w 0,0
  4366.  dc.w 0,32
  4367.  dc.w 32*4,0
  4368.  dc.w 32*4,32
  4369.  dc.w 64*4,0
  4370.  dc.w 64*4,32
  4371.  dc.w 96*4,0
  4372.  dc.w 96*4,32
  4373.  
  4374.  dc.w 128*4,0
  4375.  dc.w 128*4,32
  4376.  dc.w 32*5*4,0
  4377.  dc.w 32*5*4,32
  4378.  dc.w 32*6*4,0
  4379.  dc.w 32*6*4,32
  4380.  dc.w 32*7*4,0
  4381.  dc.w 32*7*4,32
  4382.  dc.w 32*8*4,0
  4383.  dc.w 32*8*4,32
  4384.  dc.w 32*9*4,0
  4385.  dc.w 32*9*4,32
  4386. BIGBULLET_PAL
  4387. ; incbin "bigbullet.256pal"
  4388.  
  4389. EXPLOSION_FRAMES:
  4390.  dc.w 0,0
  4391.  dc.w 64*4,0
  4392.  dc.w 64*4*2,0
  4393.  dc.w 64*4*3,0
  4394.  dc.w 64*4*4,0
  4395.  dc.w 64*4*5,0
  4396.  dc.w 64*4*6,0
  4397.  dc.w 64*4*7,0
  4398.  dc.w 64*4*8,0
  4399.  
  4400. EXPLOSION_PAL
  4401. ; incbin "explosion.256pal"
  4402.  
  4403. UGLYMONSTER_WAD:
  4404. ; incbin "uglymonster.wad"
  4405. UGLYMONSTER_PTR:
  4406. ; incbin "uglymonster.ptr"
  4407. UGLYMONSTER_FRAMES:
  4408.  dc.w 0,0
  4409. UGLYMONSTER_PAL:
  4410. ; incbin "uglymonster.pal"
  4411.  
  4412. FLYINGMONSTER_WAD:
  4413. ; incbin "FLYINGalien.wad"
  4414. FLYINGMONSTER_PTR:
  4415. ; incbin "FLYINGalien.ptr"
  4416. FLYINGMONSTER_FRAMES:
  4417.  dc.w 0,0
  4418.  dc.w 64*4,0 
  4419.  dc.w 64*4*2,0 
  4420.  dc.w 64*4*3,0 
  4421.  dc.w 64*4*4,0 
  4422.  dc.w 64*4*5,0 
  4423.  dc.w 64*4*6,0 
  4424.  dc.w 64*4*7,0 
  4425.  dc.w 64*4*8,0 
  4426.  dc.w 64*4*9,0 
  4427.  dc.w 64*4*10,0 
  4428.  dc.w 64*4*11,0 
  4429.  dc.w 64*4*12,0 
  4430.  dc.w 64*4*13,0 
  4431.  dc.w 64*4*14,0 
  4432.  dc.w 64*4*15,0 
  4433.  dc.w 64*4*16,0 
  4434.  dc.w 64*4*17,0 
  4435.  dc.w 64*4*18,0 
  4436.  dc.w 64*4*19,0 
  4437.  dc.w 64*4*20,0 
  4438.  
  4439. FLYINGMONSTER_PAL:
  4440. ; incbin "FLYINGalien.256pal"
  4441.  
  4442. KEYS_WAD:
  4443. ; incbin "keys.wad"
  4444. KEYS_PTR:
  4445. ; incbin "KEYS.PTR"
  4446. KEYS_FRAMES:
  4447.  dc.w 0,0
  4448.  dc.w 0,32
  4449.  dc.w 32*4,0
  4450.  dc.w 32*4,32
  4451. KEYS_PAL:
  4452. ; incbin "keys.256pal"
  4453.  
  4454. ROCKETS_WAD:
  4455. ; incbin "ROCKETS.wad"
  4456. ROCKETS_PTR:
  4457. ; incbin "ROCKETS.ptr"
  4458. ROCKETS_FRAMES:
  4459. ;rockets=0 to 3
  4460.  dc.w 0,0
  4461.  dc.w 32*4,0
  4462.  dc.w 0,32
  4463.  dc.w 32*4,32
  4464.  
  4465. ;Green bullets = 4 to 7
  4466.  dc.w 64*4,0
  4467.  dc.w (64+32)*4,0
  4468.  dc.w 64*4,32
  4469.  dc.w (64+32)*4,32
  4470.  
  4471. ;Blue Bullets = 8 to 11
  4472.  dc.w 128*4,0
  4473.  dc.w (128+32)*4,0
  4474.  dc.w 128*4,32
  4475.  dc.w (128+32)*4,32
  4476.  
  4477.  
  4478. ROCKETS_PAL:
  4479. ; incbin "ROCKETS.256pal"
  4480.  
  4481. BARREL_WAD:
  4482. ; incbin "BARREL.wad"
  4483. BARREL_PTR:
  4484. ; incbin "BARREL.ptr"
  4485. BARREL_FRAMES:
  4486.  dc.w 0,0
  4487.  
  4488. BARREL_PAL: 
  4489. ;incbin "BARREL.256pal"
  4490.  
  4491. GUNS_WAD:
  4492. ; incbin "guns.wad"
  4493. GUNS_PTR:
  4494. ; incbin "GUNS.PTR"
  4495. GUNS_FRAMES:
  4496.  
  4497.  dc.w 96*4*20,0
  4498.  dc.w 96*4*21,0
  4499.  dc.w 96*4*22,0
  4500.  dc.w 96*4*23,0
  4501.  
  4502.  dc.w 96*4*4,0
  4503.  dc.w 96*4*5,0
  4504.  dc.w 96*4*6,0
  4505.  dc.w 96*4*7,0
  4506.  
  4507.  dc.w 96*4*16,0
  4508.  dc.w 96*4*17,0
  4509.  dc.w 96*4*18,0
  4510.  dc.w 96*4*19,0
  4511.  
  4512.  dc.w 96*4*12,0
  4513.  dc.w 96*4*13,0
  4514.  dc.w 96*4*14,0
  4515.  dc.w 96*4*15,0
  4516.  
  4517.  dc.w 96*4*24,0
  4518.  dc.w 96*4*25,0
  4519.  dc.w 96*4*26,0
  4520.  dc.w 96*4*27,0
  4521.  
  4522.  dc.w 0,0
  4523.  dc.w 0,0
  4524.  dc.w 0,0
  4525.  dc.w 0,0
  4526.  
  4527.  dc.w 0,0
  4528.  dc.w 0,0
  4529.  dc.w 0,0
  4530.  dc.w 0,0
  4531.  
  4532.  dc.w 96*4*0,0
  4533.  dc.w 96*4*1,0
  4534.  dc.w 96*4*2,0
  4535.  dc.w 96*4*3,0 
  4536.  
  4537. GUNS_PAL:
  4538. ; incbin "newgunsinhand.256pal"
  4539.  
  4540. MARINE_WAD:
  4541. ; incbin "newMarine.wad"
  4542. MARINE_PTR:
  4543. ; incbin "newMARINE.ptr"
  4544. MARINE_FRAMES:
  4545.  dc.w 0,0
  4546.  dc.w 64*4,0
  4547.  dc.w (64*2)*4,0
  4548.  dc.w (64*3)*4,0
  4549.  dc.w (64*4)*4,0
  4550.  dc.w (64*5)*4,0
  4551.  dc.w (64*6)*4,0
  4552.  dc.w (64*7)*4,0
  4553.  dc.w (64*8)*4,0
  4554.  dc.w (64*9)*4,0
  4555.  dc.w (64*10)*4,0
  4556.  dc.w (64*11)*4,0
  4557.  dc.w (64*12)*4,0
  4558.  dc.w (64*13)*4,0
  4559.  dc.w (64*14)*4,0
  4560.  dc.w (64*15)*4,0
  4561.  dc.w (64*16)*4,0
  4562.  dc.w (64*17)*4,0
  4563.  dc.w (64*18)*4,0
  4564. MARINE_PAL:
  4565. ; incbin "newmarine.256pal"
  4566. TOUGHMARINE_FRAMES:
  4567.  dc.w 0,0
  4568.  dc.w 64*4,0
  4569.  dc.w (64*2)*4,0
  4570.  dc.w (64*3)*4,0
  4571.  dc.w (64*4)*4,0
  4572.  dc.w (64*5)*4,0
  4573.  dc.w (64*6)*4,0
  4574.  dc.w (64*7)*4,0
  4575.  dc.w (64*8)*4,0
  4576.  dc.w (64*9)*4,0
  4577.  dc.w (64*10)*4,0
  4578.  dc.w (64*11)*4,0
  4579.  dc.w (64*12)*4,0
  4580.  dc.w (64*13)*4,0
  4581.  dc.w (64*14)*4,0
  4582.  dc.w (64*15)*4,0
  4583.  dc.w (64*16)*4,0
  4584.  dc.w (64*17)*4,0
  4585.  dc.w (64*18)*4,0
  4586. TOUGHMARINE_PAL:
  4587. ; incbin "toughmutant.256pal"
  4588. FLAMEMARINE_FRAMES:
  4589.  dc.w 0,0
  4590.  dc.w 64*4,0
  4591.  dc.w (64*2)*4,0
  4592.  dc.w (64*3)*4,0
  4593.  dc.w (64*4)*4,0
  4594.  dc.w (64*5)*4,0
  4595.  dc.w (64*6)*4,0
  4596.  dc.w (64*7)*4,0
  4597.  dc.w (64*8)*4,0
  4598.  dc.w (64*9)*4,0
  4599.  dc.w (64*10)*4,0
  4600.  dc.w (64*11)*4,0
  4601.  dc.w (64*12)*4,0
  4602.  dc.w (64*13)*4,0
  4603.  dc.w (64*14)*4,0
  4604.  dc.w (64*15)*4,0
  4605.  dc.w (64*16)*4,0
  4606.  dc.w (64*17)*4,0
  4607.  dc.w (64*18)*4,0
  4608. FLAMEMARINE_PAL:
  4609. ; incbin "flamemutant.256pal"
  4610.  
  4611.  
  4612. BIGALIEN_WAD:
  4613. ; incbin "BIGSCARYALIEN.wad"
  4614. BIGALIEN_PTR:
  4615. ; incbin "BIGSCARYALIEN.ptr"
  4616. BIGALIEN_FRAMES:
  4617. ; walking=0-3
  4618.  dc.w 0,0
  4619.  dc.w 128*4,0
  4620.  dc.w 128*4*2,0
  4621.  dc.w 128*4*3,0
  4622. BIGALIEN_PAL:
  4623. ; incbin "BIGSCARYALIEN.256pal"
  4624.  
  4625. LAMPS_FRAMES:
  4626.  dc.w 0,0
  4627. LAMPS_PAL:
  4628. ; incbin "LAMPS.256pal"
  4629.  
  4630. WORM_FRAMES:
  4631.  dc.w 0,0
  4632.  dc.w 90*4,0
  4633.  dc.w 90*4*2,0
  4634.  dc.w 90*4*3,0
  4635.  dc.w 90*4*4,0
  4636.  dc.w 90*4*5,0
  4637.  dc.w 90*4*6,0
  4638.  dc.w 90*4*7,0
  4639.  dc.w 90*4*8,0
  4640.  dc.w 90*4*9,0
  4641.  dc.w 90*4*10,0
  4642.  dc.w 90*4*11,0
  4643.  dc.w 90*4*12,0
  4644.  dc.w 90*4*13,0
  4645.  dc.w 90*4*14,0
  4646.  dc.w 90*4*15,0
  4647.  dc.w 90*4*16,0
  4648.  dc.w 90*4*17,0
  4649.  dc.w 90*4*18,0
  4650.  dc.w 90*4*19,0
  4651.  dc.w 90*4*20,0
  4652. WORM_PAL:
  4653. ; incbin "worm.256pal"
  4654.  
  4655. BIGCLAWS_FRAMES:
  4656.  dc.w 0,0
  4657.  dc.w 128*4,0
  4658.  dc.w 128*4*2,0
  4659.  dc.w 128*4*3,0
  4660.  dc.w 128*4*4,0
  4661.  dc.w 128*4*5,0
  4662.  dc.w 128*4*6,0
  4663.  dc.w 128*4*7,0
  4664.  dc.w 128*4*8,0
  4665.  dc.w 128*4*9,0
  4666.  dc.w 128*4*10,0
  4667.  dc.w 128*4*11,0
  4668.  dc.w 128*4*12,0
  4669.  dc.w 128*4*13,0
  4670.  dc.w 128*4*14,0
  4671.  dc.w 128*4*15,0
  4672.  dc.w 128*4*16,0
  4673.  dc.w 128*4*17,0
  4674. BIGCLAWS_PAL:
  4675. ; incbin "bigclaws.256pal"
  4676.  
  4677. TREE_FRAMES:
  4678.  dc.w 0,0
  4679.  dc.w 64*4,0
  4680.  dc.w 64*2*4,0
  4681.  dc.w 64*3*4,0
  4682.  
  4683.  dc.w 0,0
  4684.  dc.w 64*4,0
  4685.  dc.w 64*2*4,0
  4686.  dc.w 64*3*4,0
  4687.  
  4688.  
  4689.  dc.w 0,0
  4690.  dc.w 64*4,0
  4691.  dc.w 64*2*4,0
  4692.  dc.w 64*3*4,0
  4693.  
  4694.  
  4695.  dc.w 0,0
  4696.  dc.w 64*4,0
  4697.  dc.w 64*2*4,0
  4698.  dc.w 64*3*4,0
  4699.  
  4700.  dc.w 0,0
  4701.  dc.w 0,0
  4702.  
  4703.  dc.w 32*8*4,0
  4704.  dc.w 32*9*4,0
  4705.  dc.w 32*10*4,0
  4706.  dc.w 32*11*4,0
  4707.  
  4708. TREE_PAL:
  4709. ; incbin "tree.256pal"
  4710.  
  4711.  
  4712.  even
  4713. ObAdds:
  4714. ; incbin "ALIEN1.ptr"
  4715. objpal:
  4716. ; incbin "ALIEN1.256pal"
  4717. TextureMaps:
  4718.  dc.l 0
  4719. ; incbin "ab3:includes/newTexturemaps"
  4720. TexturePal:
  4721.  dc.l 0
  4722. ; incbin "ab3:includes/texture256pal"
  4723.  
  4724. testval: dc.l 0